(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    336349,       6618]
NotebookOptionsPosition[     27396,        733]
NotebookOutlinePosition[    328649,       6434]
CellTagsIndexPosition[    327996,       6412]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["BitFlip", "Title",
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellChangeTimes->{{3.7573307744369164`*^9, 3.7573307754849215`*^9}},
 CellTags->{"Title", "TabNext"},
 CellID->362346026,ExpressionUUID->"7f3dc888-4f9f-4ed8-927a-9877b5d60839"],

Cell["Flip an individual bit in an integer (0 to 1, and 1 to 0)", "Text",
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellChangeTimes->{{3.757332856466201*^9, 3.757332883945334*^9}},
 CellTags->{"Description", "TabNext"},
 CellID->450900334,ExpressionUUID->"e1487cd0-b310-42bf-bb9f-968aec9526b8"],

Cell[CellGroupData[{

Cell[TextData[{
 "Definition",
 Cell[BoxData[
  TemplateBox[{"Definition",Cell[
     BoxData[
      FrameBox[
       Cell[
       "Define your function using the name above. All definitions, including \
dependencies, will be included in the resource function when it is generated. \
Additional cells can be added and definitions can be given for multiple input \
cases.\n\nThis section should be evaluated before evaluating creating the \
Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], 
       FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 
       5]], "MoreInfoText", Deletable -> True, 
     CellTags -> {"SectionMoreInfoDefinition"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "3f406729-6b82-461d-9042-40e76b131b53"]
}], "Section",
 Deletable->False,
 DefaultNewCellStyle->"Input",
 CellTags->"Definition",
 CellID->608264297,ExpressionUUID->"172d1f2a-3686-40bd-8a2f-b6d651784c85"],

Cell[BoxData[
 RowBox[{
  RowBox[{"BitFlip", "[", 
   RowBox[{"n_Integer", ",", "p_Integer"}], "]"}], ":=", 
  RowBox[{"BitXor", "[", 
   RowBox[{"n", ",", 
    RowBox[{"BitSet", "[", 
     RowBox[{"0", ",", "p"}], "]"}]}], "]"}]}]], "Input",
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellChangeTimes->{{3.757330797230359*^9, 3.7573308223920965`*^9}},
 CellTags->"TabNext",
 CellLabel->"In[77]:=",
 CellID->778396829,ExpressionUUID->"91ad62e1-34e5-423e-b976-d02c457972b6"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Documentation", "Section",
 Deletable->False,
 CellTags->"Documentation",
 CellID->855965831,ExpressionUUID->"b0c71edf-dda2-4761-8132-a16dbe897b68"],

Cell[CellGroupData[{

Cell[TextData[{
 "Usage",
 Cell[BoxData[
  TemplateBox[{"Usage",Cell[
     BoxData[
      FrameBox[
       Cell[
       "Document every accepted input usage case. Use Enter to create new \
cases as needed.\n\nEach usage should contain a brief explanation saying what \
the function does for the given input structure.\n\nSee existing \
documentation pages for examples.", "MoreInfoText"], Background -> 
       GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], 
       RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, 
     CellTags -> {"SectionMoreInfoUsage"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "a74ab706-93b4-4808-b0e2-36cf9f79abf3"]
}], "Subsection",
 Deletable->False,
 DefaultNewCellStyle->"UsageInputs",
 CellTags->"Usage",
 CellID->694807545,ExpressionUUID->"1d44f233-146a-43bf-91d7-3c1e069829fc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BitFlip", "[", 
  StyleBox[
   RowBox[{"n", ",", "p"}],
   FontSlant->"Italic"], "]"}]], "UsageInputs",
 CellChangeTimes->{{3.757332892202377*^9, 3.7573328976184006`*^9}},
 CellTags->"TabNext",
 CellID->157543866,ExpressionUUID->"fe68b886-a6fa-4d32-90b4-f2aa5b7a1079"],

Cell["flips the pth bit of integer n.", "UsageDescription",
 CellChangeTimes->{{3.75733291381748*^9, 3.7573329247375565`*^9}},
 CellTags->"TabNext",
 CellID->231889230,ExpressionUUID->"758204a5-98e5-4494-a215-0e97b606574c"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Details & Options",
 Cell[BoxData[
  TemplateBox[{"Details & Options",Cell[
     BoxData[
      FrameBox[
       Cell[
       "Give a detailed explanation of how the function is used. Add multiple \
cells including tables and hyperlinks as needed. Typical information \
includes: acceptable inputs, result formats, options specifications, and \
background information.", "MoreInfoText"], Background -> GrayLevel[0.95], 
       FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 
       5]], "MoreInfoText", Deletable -> True, 
     CellTags -> {"SectionMoreInfoDetailsOptions"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "d9173777-7627-442b-b4c1-8cfb0abe9098"]
}], "Subsection",
 Deletable->False,
 DefaultNewCellStyle->"Notes",
 CellTags->"Details & Options",
 CellID->29639701,ExpressionUUID->"69a9acf3-66a9-4588-bfbe-fbdab5f136f2"],

Cell[TextData[{
 "The lowest bit of integer ",
 StyleBox["n",
  FontSlant->"Italic"],
 " (e.g. signifying ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["2", "0"], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "bb3343c2-42f8-4b73-bbe1-c78c97b1e65a"],
 ") is flipped with p=0."
}], "Notes",
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellChangeTimes->{{3.7573329664257574`*^9, 3.757333051385191*^9}},
 CellTags->"TabNext",
 CellID->521904482,ExpressionUUID->"503b4729-1464-4f53-af15-cba234e12d63"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Examples",
 Cell[BoxData[
  TemplateBox[{"Examples",Cell[
     BoxData[
      FrameBox[
       Cell[
       "Demonstrate how to use the function. Examples should start with the \
most basic use case. Each example should be described using text cells. Use \
\"Subsection\" and \"Subsubsection\" cells to group examples as needed.\n\n\
Example groups can optionally be delimited by inserting page breaks between \
them (affects example count on documentation page).\n\nSee existing \
documentation pages for examples.", "MoreInfoText"], Background -> 
       GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], 
       RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, 
     CellTags -> {"SectionMoreInfoExamples"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "8640c88f-cd13-46a4-883b-8929899de98f"]
}], "Section",
 Deletable->False,
 CellTags->"Examples",
 CellID->847663398,ExpressionUUID->"af09ef0b-cce0-4eec-b74c-3508fd855f1c"],

Cell[CellGroupData[{

Cell["Basic Examples", "Subsection",
 CellID->462042388,ExpressionUUID->"8cb6f2dc-8b9e-4bee-a914-333e1cb2afff"],

Cell["Flip the 0th bit of the number 2, from a zero to a one:", "Text",
 CellChangeTimes->{{3.7573309628366184`*^9, 3.757330990452773*^9}},
 CellID->13078159,ExpressionUUID->"e5e7b31f-2f56-4344-93f1-f589f488b225"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BitFlip", "[", 
  RowBox[{"2", ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.757330832022051*^9, 3.7573308568606663`*^9}, {
  3.757330920015541*^9, 3.75733095582058*^9}},
 CellLabel->"In[82]:=",
 CellID->443871870,ExpressionUUID->"ab0d8e16-5d23-4ae4-b9f2-03528b19ffa5"],

Cell[BoxData["3"], "Output",
 CellChangeTimes->{{3.7573308430105906`*^9, 3.7573308572006683`*^9}, 
   3.7573309201865396`*^9, 3.7573309561655836`*^9},
 CellLabel->"Out[82]=",
 CellID->254723340,ExpressionUUID->"6e10426e-0285-4c22-8550-49de71dbd6aa"]
}, Open  ]],

Cell["Flip the 0th bit of the number 3, from a one to a zero:", "Text",
 CellChangeTimes->{{3.7573309628366184`*^9, 3.757331021259884*^9}},
 CellID->511714303,ExpressionUUID->"ef448fbb-51f4-4171-a3ea-45138aa96ab8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BitFlip", "[", 
  RowBox[{"3", ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.757330832022051*^9, 3.7573308494606247`*^9}, {
  3.7573309983358192`*^9, 3.7573310004218297`*^9}},
 CellLabel->"In[84]:=",
 CellID->450253865,ExpressionUUID->"e06a0a33-27eb-49e1-9e15-6ffeca283ee4"],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{
  3.7573308496206264`*^9, {3.7573310007198305`*^9, 3.7573310299369316`*^9}},
 CellLabel->"Out[84]=",
 CellID->383480412,ExpressionUUID->"844911ee-627b-4c31-948f-6a1b0da8166f"]
}, Open  ]],

Cell["Starting with the number zero, flip positional bits:", "Text",
 CellChangeTimes->{{3.7573310510073214`*^9, 3.757331077668469*^9}},
 CellID->717786656,ExpressionUUID->"15de8199-654a-4550-b233-8c4a92a88266"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"BitFlip", "[", 
    RowBox[{"0", ",", "i"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "0", ",", "7"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.757331037867979*^9, 3.7573310452299623`*^9}},
 CellLabel->"In[85]:=",
 CellID->233777138,ExpressionUUID->"6f9595cd-c294-4d13-a9d7-e102a6e902a9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "2", ",", "4", ",", "8", ",", "16", ",", "32", ",", "64", ",", 
   "128"}], "}"}]], "Output",
 CellChangeTimes->{3.7573310460069656`*^9},
 CellLabel->"Out[85]=",
 CellID->431071536,ExpressionUUID->"bca2ae1a-849e-412a-bc39-d485f747b84d"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Scope", "Subsection",
 CellID->964056545,ExpressionUUID->"aa3902d7-af20-4a0a-ac85-dfbb6bb718b3"],

Cell[TextData[{
 "Flip the bit associated with ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["2", "4"], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "26e08aee-e25c-4fa6-ab3d-12b38deb201a"],
 ":"
}], "Text",
 CellChangeTimes->{{3.7573331227615566`*^9, 3.7573331345456176`*^9}},
 CellID->649685796,ExpressionUUID->"81c8a84d-1ed0-4b45-91a7-661a00b491a9"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"n", "=", 
   RowBox[{"RandomInteger", "[", 
    RowBox[{"256", "-", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Grid", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"IntegerDigits", "[", 
     RowBox[{"#", ",", "2", ",", "8"}], "]"}], "&"}], "/@", 
   RowBox[{"{", 
    RowBox[{"n", ",", 
     RowBox[{"BitFlip", "[", 
      RowBox[{"n", ",", "4"}], "]"}]}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.7573330717072926`*^9, 3.757333106609481*^9}},
 CellLabel->"In[86]:=",
 CellID->836153427,ExpressionUUID->"2dc296fb-90ae-4c4c-b0c9-5b9b7c31b29b"],

Cell[BoxData[
 TagBox[GridBox[{
    {"0", "0", "1", "1", "0", "0", "1", "0"},
    {"0", "0", "1", "0", "0", "0", "1", "0"}
   },
   AutoDelete->False,
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{3.7573331069964824`*^9},
 CellLabel->"Out[87]=",
 CellID->265765072,ExpressionUUID->"03f56944-97bf-4fa4-a168-076f9c13aed9"]
}, Open  ]],

Cell[TextData[{
 "Flip the bit associated with ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["2", "7"], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "7cfd3e96-23e0-4f41-8aeb-a81bed2ed91e"],
 ":"
}], "Text",
 CellChangeTimes->{{3.7573331227615566`*^9, 3.757333152649703*^9}},
 CellID->879052803,ExpressionUUID->"787e631b-adbd-4d9e-845d-aa08fe079cea"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"n", "=", 
   RowBox[{"RandomInteger", "[", 
    RowBox[{"256", "-", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Grid", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"IntegerDigits", "[", 
     RowBox[{"#", ",", "2", ",", "8"}], "]"}], "&"}], "/@", 
   RowBox[{"{", 
    RowBox[{"n", ",", 
     RowBox[{"BitFlip", "[", 
      RowBox[{"n", ",", "7"}], "]"}]}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.7573330717072926`*^9, 3.757333106609481*^9}, {
  3.7573331390016356`*^9, 3.7573331436096582`*^9}},
 CellLabel->"In[88]:=",
 CellID->255267095,ExpressionUUID->"33d31feb-a9a3-417f-9c49-d49fc97ee09b"],

Cell[BoxData[
 TagBox[GridBox[{
    {"0", "1", "0", "1", "0", "0", "1", "1"},
    {"1", "1", "0", "1", "0", "0", "1", "1"}
   },
   AutoDelete->False,
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{3.7573331442516646`*^9},
 CellLabel->"Out[89]=",
 CellID->311835641,ExpressionUUID->"63603dbe-89eb-4119-889a-e9cbce4bbc42"]
}, Open  ]]
}, Open  ]],

Cell["Options", "Subsection",
 CellID->776923543,ExpressionUUID->"02fd957e-1a63-4ee3-8fae-eb0d1d76e0d9"],

Cell[CellGroupData[{

Cell["Applications", "Subsection",
 CellID->568056528,ExpressionUUID->"f1f9c0a7-86e7-4f25-bdc1-ac58ed96f767"],

Cell["\<\
Compute the Hamming-distance between a random integer and the same number \
with a single random bit flipped:\
\>", "Text",
 CellChangeTimes->{{3.7573332562733774`*^9, 3.7573332934325633`*^9}},
 CellID->341824815,ExpressionUUID->"94fa3c24-4d6e-4f8b-a8c2-30f5b630ddb3"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"n", "=", 
   RowBox[{"RandomInteger", "[", 
    RowBox[{
     RowBox[{"2", "^", "256"}], "-", "1"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"HammingDistance", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"IntegerDigits", "[", 
    RowBox[{"n", ",", "2", ",", "256"}], "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"IntegerDigits", "[", 
    RowBox[{
     RowBox[{"BitFlip", "[", 
      RowBox[{"n", ",", 
       RowBox[{"RandomInteger", "[", "256", "]"}]}], "]"}], ",", "2", ",", 
     "256"}], "]"}]}], "\[IndentingNewLine]", "]"}]}], "Input",
 CellChangeTimes->{{3.7573331666637745`*^9, 3.757333243041314*^9}},
 CellID->59129480,ExpressionUUID->"e3b15d46-f533-406f-8126-5abb1189cf21"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{{3.7573331760608206`*^9, 3.757333200719938*^9}, 
   3.757333234754124*^9},
 CellLabel->"Out[94]=",
 CellID->115644488,ExpressionUUID->"fc4edc0d-0906-44cc-a3a1-0ccb5127742b"]
}, Open  ]]
}, Open  ]],

Cell["Properties and Relations", "Subsection",
 CellID->754506620,ExpressionUUID->"9431dded-b7bb-419d-a048-57eaa85dea14"],

Cell["Possible Issues", "Subsection",
 CellID->92483860,ExpressionUUID->"e0144eb8-41b9-406b-b0bf-ec93d3fc7f71"],

Cell["Neat Examples", "Subsection",
 CellID->540091361,ExpressionUUID->"5864bab9-9aef-4cfa-9a38-ab46af950496"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Source & Additional Information", "Section",
 Deletable->False,
 CellTags->"Source & Additional Information",
 CellID->318391102,ExpressionUUID->"a0672987-d558-4c6c-922a-0d68dbd89abc"],

Cell[CellGroupData[{

Cell[TextData[{
 "Contributed By",
 Cell[BoxData[
  TemplateBox[{"Contributed By",Cell[
     BoxData[
      FrameBox[
       Cell[
       "Name of the person, people or organization that should be publicly \
credited with contributing the function.", "MoreInfoText"], Background -> 
       GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], 
       RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, 
     CellTags -> {"SectionMoreInfoContributedBy"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "1b24dc68-22f1-43c6-8223-7065f3691cce"]
}], "Subsection",
 Deletable->False,
 DefaultNewCellStyle->"Text",
 CellTags->"Contributed By",
 CellID->757508554,ExpressionUUID->"b3a2ea4f-f217-4acb-bfdd-d9a503d46ba1"],

Cell["Arnoud Buzing", "Text",
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellChangeTimes->{{3.757333299648592*^9, 3.7573333014006023`*^9}},
 CellTags->"TabNext",
 CellID->832483124,ExpressionUUID->"0498e722-2464-4bb5-ad08-757725456d4c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Keywords",
 Cell[BoxData[
  TemplateBox[{"Keywords",Cell[
     BoxData[
      FrameBox[
       Cell[
       "List relevant terms that should be used to include this resource in \
search results.", "MoreInfoText"], Background -> GrayLevel[0.95], 
       FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 
       5]], "MoreInfoText", Deletable -> True, 
     CellTags -> {"SectionMoreInfoKeywords"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "8794be54-5f55-4dc5-8762-face0c748895"]
}], "Subsection",
 Deletable->False,
 DefaultNewCellStyle->"Item",
 CellTags->"Keywords",
 CellID->246422893,ExpressionUUID->"9f0a351c-3c76-4030-b3c9-23df321f0299"],

Cell["keyword 1", "Item",
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellTags->"TabNext",
 CellID->123227828,ExpressionUUID->"aad8cf17-7ffd-47d4-bbcc-365da0671542"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Related Symbols",
 Cell[BoxData[
  TemplateBox[{"Related Symbols",Cell[
     BoxData[
      FrameBox[
       Cell[
       "List related Wolfram Language symbols. Include up to twenty \
documented, system-level symbols.", "MoreInfoText"], Background -> 
       GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], 
       RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, 
     CellTags -> {"SectionMoreInfoRelatedSymbols"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "e6e6fe12-2675-4727-9cd2-0e20ab2858c2"]
}], "Subsection",
 Deletable->False,
 DefaultNewCellStyle->"Item",
 CellTags->"Related Symbols",
 CellID->911170439,ExpressionUUID->"2a43d3ac-9175-4a0b-9c9a-9a326c6aa124"],

Cell["SymbolName (documented Wolfram Language symbol)", "Item",
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellTags->"TabNext",
 CellID->79477165,ExpressionUUID->"ce7e66dc-f28f-4276-ae2f-3593f79cf132"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Related Resource Objects",
 Cell[BoxData[
  TemplateBox[{"Related Resource Objects",Cell[
     BoxData[
      FrameBox[
       Cell[
       "Names of published resource objects from any Wolfram repository that \
are related to this resource.", "MoreInfoText"], Background -> 
       GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], 
       RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, 
     CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "1f68e827-c69f-42b6-bf71-2a5d65d69471"]
}], "Subsection",
 Deletable->False,
 DefaultNewCellStyle->"Item",
 CellTags->"Related Resource Objects",
 CellID->217060377,ExpressionUUID->"b56c2736-62a5-4146-a7ec-f42a4034bdae"],

Cell["Resource Name (resources from any Wolfram repository)", "Item",
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellTags->"TabNext",
 CellID->960273585,ExpressionUUID->"46e7fb96-a961-43a4-8b5a-c03012738145"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Source/Reference Citation",
 Cell[BoxData[
  TemplateBox[{"Source/Reference Citation",Cell[
     BoxData[
      FrameBox[
       Cell[
       "Citation for original source of the function or its components. For \
example, original publication of an algorithm or public code repository.", 
        "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, 
       FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", 
     Deletable -> True, 
     CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "61af8355-1e07-4ca9-999c-1e5bda6147a8"]
}], "Subsection",
 Deletable->False,
 DefaultNewCellStyle->"Text",
 CellTags->"Source/Reference Citation",
 CellID->967310595,ExpressionUUID->"b9ebc76b-aea6-4350-8dc9-20d3dd7f84f0"],

Cell["Source, reference or citation information", "Text",
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellTags->"TabNext",
 CellID->343081869,ExpressionUUID->"be92790d-0f39-4cc9-a368-5cd4eaa5193c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Links",
 Cell[BoxData[
  TemplateBox[{"Links",Cell[
     BoxData[
      FrameBox[
       Cell[
       "URLs or hyperlinks for external information related to the function.",
         "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, 
       FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", 
     Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "b6d6d6cc-1432-4004-8fb8-4369152e13bb"]
}], "Subsection",
 Deletable->False,
 DefaultNewCellStyle->"Item",
 CellTags->"Links",
 CellID->593846556,ExpressionUUID->"d37f3bd2-ecec-4726-ac9e-39c3c7ef3073"],

Cell["Link to other related material", "Item",
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellTags->"TabNext",
 CellID->485448166,ExpressionUUID->"5a094567-a818-4d36-a80a-5525dad9e719"]
}, Open  ]],

Cell[TextData[{
 "Tests",
 Cell[BoxData[
  TemplateBox[{"Tests",Cell[
     BoxData[
      FrameBox[
       Cell[
       "Optional list of tests that can be used to verify that the function \
is working properly in any environment.\nTests can be specified as \
Input/Output cell pairs or as literal VerificationTest expressions if you \
need to specify options.", "MoreInfoText"], Background -> GrayLevel[0.95], 
       FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 
       5]], "MoreInfoText", Deletable -> True, 
     CellTags -> {"SectionMoreInfoTests"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "72c5c365-b3da-4081-8145-393fe48b7e58"]
}], "Subsection",
 Deletable->False,
 DefaultNewCellStyle->"Input",
 CellTags->"Tests",
 CellID->16051757,ExpressionUUID->"2376d591-4240-4586-8422-84cf4e38f97c"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Author Notes", "Section",
 Deletable->False,
 DefaultNewCellStyle->"Text",
 CellTags->"Author Notes",
 CellID->795110225,ExpressionUUID->"0aef5205-755e-4cb0-ae53-e7e6dff8f42c"],

Cell["Additional information about limitations, issues, etc.", "Text",
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellTags->"TabNext",
 CellID->567921317,ExpressionUUID->"53d6a668-784a-4092-b99e-522f3d4b4716"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Submission Notes",
 Cell[BoxData[
  TemplateBox[{"Submission Notes",Cell[
     BoxData[
      FrameBox[
       Cell[
       "Enter any additional information that you would like to communicate \
to the reviewer here. This section will not be included in the published \
resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 
       20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], 
     "MoreInfoText", Deletable -> True, 
     CellTags -> {"SectionMoreInfoSubmissionNotes"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "be250f70-885b-4d94-8ecc-0cd6390c06fa"]
}], "Section",
 Deletable->False,
 DefaultNewCellStyle->"Text",
 CellTags->"Submission Notes",
 CellID->843283583,ExpressionUUID->"62dcd839-d3f4-4598-8259-a5597fab6a1f"],

Cell["Additional information for the reviewer.", "Text",
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellTags->"TabNext",
 CellID->920818074,ExpressionUUID->"4475d55f-b8af-4603-bc8d-f321212c775c"]
}, Open  ]]
}, Open  ]]
},
NotebookDynamicExpression:>Dynamic[
  Symbol["System`ResourceFunction"], SynchronousUpdating -> False],
WindowSize->{775, 872},
WindowMargins->{{506, Automatic}, {51, Automatic}},
Visible->True,
DockedCells->{
  Cell[
   BoxData[
    TagBox[
     GridBox[{{
        TagBox[
         GridBox[{{
            GraphicsBox[{
              Thickness[0.022222222222222223`], {
               FaceForm[{
                 RGBColor[0.87451, 0.278431, 0.03137260000000001], 
                 Opacity[1.]}], 
               
               FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 
                3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 
                0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, {0.,
                 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 
                45.}, {45., 34.926}, {45., 22.5}}}]}, {
               FaceForm[{
                 RGBColor[1., 1., 1.], 
                 Opacity[1.]}], 
               
               FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {
                 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 
                 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {
                 0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 
                 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {
                 0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 
                 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 
                 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                 0}}}, {CompressedData["
1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e
ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa
4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB
9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2
cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1
2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh
Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e
PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx
71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP
iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h
I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A
peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8=
                 "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 
                 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 
                 26.308999999999997`}, {21.375, 26.258000000000003`}, {21.375,
                  24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {
                 21.426, 15.547}, {23.828, 15.315999999999999`}, {23.828, 
                 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {
                 24.578, 23.539}, {24.953, 23.914}, {25.418, 23.91}, {29.746, 
                 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 
                 23.078000000000003`}, {30.578, 18.75}, {30.581999999999997`, 
                 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {
                 25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 
                 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {
                 33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 
                 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 
                 26.281}, {31.328, 26.512000000000004`}, {31.328, 27.586}, {
                 36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, {
             Background -> RGBColor[0.988235, 0.419608, 0.203922], 
              AspectRatio -> Automatic, ImageSize -> {45., 45.}, 
              PlotRange -> {{0., 45.}, {0., 45.}}}], 
            StyleBox[
            "\"Function Resource Definition Notebook\"", FontFamily -> 
             "Source Sans Pro", FontWeight -> Bold, FontSize -> 22, FontColor -> 
             GrayLevel[1], StripOnInput -> False]}}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, 
          AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 
        "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", 
        "\[SpanFromLeft]", "\[SpanFromLeft]", 
        ItemBox[
         TemplateBox[{
           StyleBox[
           "\"Function Repository \[RightGuillemet]\"", "Text", FontColor -> 
            GrayLevel[1], StripOnInput -> False], 
           "https://resources.wolframcloud.com/FunctionRepository/"}, 
          "HyperlinkURL"], Alignment -> {Right, Bottom}, StripOnInput -> 
         False]}, {
        ButtonBox[
         TemplateBox[{
           StyleBox[
           "\"Open Sample Notebook\"", "Text", FontFamily -> 
            "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontSize -> 
            13, FontColor -> GrayLevel[1], StripOnInput -> False], 
           "\"View a completed sample definition notebook\""}, 
          "PrettyTooltipTemplate"], 
         ButtonFunction :> (Symbol["System`ResourceFunction"]; 
          FunctionResource`DefinitionNotebook`Private`showProgress[
            
            FunctionResource`DefinitionNotebook`Private`viewExampleNotebook[]]\
), FrameMargins -> {{1, 1}, {0, 0}}, 
         Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h
Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89
GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A
+GMDZA==
             "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> 
           Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL
CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8
6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf
AJBwAV4=
             "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
           "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/
E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc
CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC
jIx4IS/2yUhjJKVkUvMLAMWzMVI=
             "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
         Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> 
         "Queued", ImageSize -> {All, 25}, Evaluator -> Automatic], 
        ButtonBox[
         TemplateBox[{
           StyleBox[
           "\"Style Guidelines\"", "Text", FontFamily -> 
            "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontSize -> 
            13, FontColor -> GrayLevel[1], StripOnInput -> False], 
           "\"Coming soon\""}, "PrettyTooltipTemplate"], 
         ButtonFunction :> (Symbol["System`ResourceFunction"]; 
          FunctionResource`DefinitionNotebook`Private`showProgress[
            MessageDialog["Coming soon."]]), FrameMargins -> {{1, 1}, {0, 0}},
          Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h
Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89
GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A
+GMDZA==
             "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> 
           Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL
CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8
6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf
AJBwAV4=
             "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
           "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/
E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc
CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC
jIx4IS/2yUhjJKVkUvMLAMWzMVI=
             "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
         Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> 
         "Queued", ImageSize -> {All, 25}, Evaluator -> Automatic], 
        TagBox[
         GridBox[{{"\"\"", "\"\""}}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, 
          AutoDelete -> False, 
          GridBoxDividers -> {
           "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, 
          GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{2}}}, 
          FrameStyle -> RGBColor[0.994118, 0.709804, 0.601961]], "Grid"], 
        ActionMenuBox[
         ButtonBox[
          StyleBox[
          "\"Preview \[DownPointer]\"", "Text", FontFamily -> 
           "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontSize -> 
           13, FontColor -> GrayLevel[1], StripOnInput -> False], 
          ButtonFunction :> (Symbol["System`ResourceFunction"]; 
           FunctionResource`DefinitionNotebook`Private`showProgress[Null]), 
          FrameMargins -> {{1, 1}, {0, 0}}, 
          Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h
Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89
GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A
+GMDZA==
              "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> 
            Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL
CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8
6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf
AJBwAV4=
              "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
            "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/
E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc
CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC
jIx4IS/2yUhjJKVkUvMLAMWzMVI=
              "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
          Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> 
          "Queued", ImageSize -> {All, 25}, Evaluator -> Automatic], {
         "\"In a notebook\"" :> (Symbol["System`ResourceFunction"]; 
           FunctionResource`DefinitionNotebook`Private`getResource[
             ButtonNotebook[], "Preview"]), 
          "\"On the cloud\"" :> (Symbol["System`ResourceFunction"]; 
           FunctionResource`DefinitionNotebook`Private`getResource[
             ButtonNotebook[], "Cloud"])}, Appearance -> None, Method -> 
         "Queued"], 
        ActionMenuBox[
         ButtonBox[
          StyleBox[
          "\"Deploy \[DownPointer]\"", "Text", FontFamily -> 
           "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontSize -> 
           13, FontColor -> GrayLevel[1], StripOnInput -> False], 
          ButtonFunction :> (Symbol["System`ResourceFunction"]; 
           FunctionResource`DefinitionNotebook`Private`showProgress[Null]), 
          FrameMargins -> {{1, 1}, {0, 0}}, 
          Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h
Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89
GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A
+GMDZA==
              "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> 
            Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL
CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8
6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf
AJBwAV4=
              "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
            "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/
E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc
CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC
jIx4IS/2yUhjJKVkUvMLAMWzMVI=
              "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
          Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> 
          "Queued", ImageSize -> {All, 25}, Evaluator -> Automatic], {
         "\"Locally on this computer\"" :> (Symbol["System`ResourceFunction"]; 
           FunctionResource`DefinitionNotebook`Private`getResource[
             ButtonNotebook[], "Local"]), 
          "\"For my cloud account\"" :> (Symbol["System`ResourceFunction"]; 
           FunctionResource`DefinitionNotebook`Private`getResource[
             ButtonNotebook[], "Cloud"]), 
          "\"Publicly in the cloud\"" :> (Symbol["System`ResourceFunction"]; 
           FunctionResource`DefinitionNotebook`Private`getResource[
             ButtonNotebook[], "CloudPublic"]), 
          "\"In this session only (without documentation)\"" :> (
           Symbol["System`ResourceFunction"]; 
           FunctionResource`DefinitionNotebook`Private`getResource[
             ButtonNotebook[], "KernelSession"])}, Appearance -> None, Method -> 
         "Queued"], 
        ItemBox[
         StyleBox[
          DynamicBox[
           ToBoxes[
            CurrentValue[
             EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], 
            StandardForm]], "Text", 
          GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, StripOnInput -> 
         False], 
        ButtonBox[
         TemplateBox[{
           StyleBox[
            TagBox[
             GridBox[{{
                GraphicsBox[{
                  Thickness[0.06349206349206349], 
                  StyleBox[{
                    
                    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
                     0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1,
                     0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP
p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4=

                    "]]}, 
                   FaceForm[
                    RGBColor[0.960784, 0.705882, 0.498039, 1.]], StripOnInput -> 
                   False], 
                  StyleBox[{
                    
                    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
                     0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1,
                     0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 
                    2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+
Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG
QUPVNSjgp+HmIWgAG/wcEg==
                    "]], 
                    
                    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
                     0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1,
                     0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 
                    2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 
                    1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0,
                     1, 0}, {0, 1, 0}}}, CompressedData["
1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO
u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H
eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw==
                    "]]}, 
                   FaceForm[
                    RGBColor[1., 1., 1., 1.]], StripOnInput -> False]}, 
                 ImageSize -> 18, PlotRange -> {{0., 15.75}, {0., 16.5}}, 
                 AspectRatio -> Automatic], "\"Submit to Repository\""}}, 
              GridBoxAlignment -> {
               "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
              False, GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.25}, 
                "Rows" -> {{0}}}], "Grid"], "Text", FontFamily -> 
            "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontSize -> 
            13, FontColor -> GrayLevel[1], StripOnInput -> False], 
           "\"Submit your function to the Wolfram Function Repository\""}, 
          "PrettyTooltipTemplate"], 
         ButtonFunction :> (Symbol["System`ResourceFunction"]; 
          FunctionResource`DefinitionNotebook`Private`showProgress[
            FunctionResource`DefinitionNotebook`Private`submitRepository[
             ButtonNotebook[]]]), FrameMargins -> {{1, 1}, {0, 0}}, 
         Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h
Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89
GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A
+GMDZA==
             "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> 
           Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL
CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8
6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf
AJBwAV4=
             "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
           "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/
E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc
CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC
jIx4IS/2yUhjJKVkUvMLAMWzMVI=
             "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
         Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> 
         "Queued", ImageSize -> {All, 25}, Evaluator -> Automatic]}}, 
      GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, 
      AutoDelete -> False, 
      GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> {
          RGBColor[0.988235, 0.419608, 0.203922], 
          RGBColor[0.921569, 0.341176, 0.105882]}}, 
      GridBoxFrame -> {
       "Columns" -> False, 
        "RowsIndexed" -> {
         1 -> RGBColor[0.988235, 0.419608, 0.203922], 2 -> 
          RGBColor[0.921569, 0.341176, 0.105882]}}, 
      GridBoxItemSize -> {
       "Columns" -> {{Automatic}}, "RowsIndexed" -> {1 -> 6, 2 -> 4}}, 
      GridBoxSpacings -> {"Columns" -> {5, {}, 5}, "Rows" -> {{Automatic}}}, 
      FrameStyle -> RGBColor[0.988235, 0.419608, 0.203922]], "Grid"]], 
   "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0], 
  Cell[
   BoxData[
    StyleBox[
     TagBox[
      DynamicModuleBox[{Typeset`var$$ = False}, 
       InterpretationBox[
        StyleBox[
         PaneSelectorBox[{False -> GridBox[{{
               OpenerBox[
                Dynamic[Typeset`var$$], Appearance -> Automatic, Enabled -> 
                Automatic, AutoAction -> False, ContinuousAction -> False], 
               TagBox[
                GridBox[{{
                   TagBox[
                    GridBox[{{"\"Published to the cloud\"", 
                    
                    TemplateBox[{
                    "\"\[RightGuillemet]\"", 
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"}, "HyperlinkURL"]}}, AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], 
                   TagBox[
                    GridBox[{{"\"ResourceFunction:\"", 
                    TemplateBox[{
                    InterpretationBox[
                    FrameBox[
                    TagBox[
                    GridBox[{{
                    StyleBox[
                    "\"\[EmptyCircle]\"", FontSize -> 1.2 Inherited, 
                    ShowStringCharacters -> False, FontColor -> 
                    RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], 
                    FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], Bold, Plain]], StripOnInput -> 
                    False], 
                    StyleBox[
                    "\"BitFlip\"", FontColor -> 
                    RGBColor[0.2784313725490196, 0.2784313725490196, 
                    0.2784313725490196], ShowAutoStyles -> False, 
                    ShowStringCharacters -> False, FontFamily -> "Roboto", 
                    FontSize -> 0.9 Inherited, FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], "DemiBold", Plain]], 
                    StripOnInput -> False]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], 
                    Background -> 
                    RGBColor[
                    0.9686274509803922, 0.9686274509803922, 
                    0.9686274509803922], ContentPadding -> False, 
                    FrameMargins -> {{3, 4}, {2, 2}}, FrameStyle -> Directive[
                    Thickness[1], 
                    RGBColor[
                    0.8627450980392157, 0.8627450980392157, 
                    0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> 
                    False, Selectable -> False], 
                    ResourceFunction[
                    ResourceObject[
                    Association[
                    "Name" -> "BitFlip", "UUID" -> 
                    "9725f1c4-fd15-485f-8fe2-fb0138eda5c0", "ResourceType" -> 
                    "Function", "Description" -> 
                    "Flip an individual bit in an integer (0 to 1, and 1 to \
0)", "Version" -> None, "ContributorInformation" -> 
                    Association["ContributedBy" -> "Arnoud Buzing"], 
                    "Documentation" -> Association["Usage" -> {
                    Association["Usage" -> BoxData[
                    RowBox[{
                    StyleBox[
                    RowBox[{
                    StyleBox["ResourceFunction", "ResourceFunctionSymbol"], 
                    "[", 
                    StyleBox["\"BitFlip\"", "ResourceFunctionName"], "]"}], 
                    "ResourceFunctionHandle"], "[", 
                    StyleBox[
                    RowBox[{"n", ",", "p"}], FontSlant -> "Italic"], "]"}]], 
                    "Description" -> "flips the pth bit of integer n."]}, 
                    "Notes" -> {
                    Cell[
                    TextData[{"The lowest bit of integer ", 
                    StyleBox["n", FontSlant -> "Italic"], 
                    " (e.g. signifying ", 
                    Cell[
                    BoxData[
                    FormBox[
                    SuperscriptBox["2", "0"], TraditionalForm]], FormatType -> 
                    "TraditionalForm"], ") is flipped with p=0."}], "Notes", 
                    CellEventActions -> {
                    Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
                    SelectedNotebook[], After, Cell]; NotebookFind[
                    SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> 
                    True, WrapAround -> True], Blank[NotebookSelection] :> 
                    SelectionMove[
                    SelectedNotebook[], All, CellContents, AutoScroll -> 
                    True]], PassEventsDown -> False, PassEventsUp -> False}, 
                    CellChangeTimes -> {{3.7573329664257574`*^9, 
                    3.757333051385191*^9}}, CellTags -> "TabNext", CellID -> 
                    521904482]}], "ExampleNotebook" -> NotebookObject[
                    FrontEndObject[
                    LinkObject["yhzwf_shm", 3, 1]], 37], "FunctionLocation" -> 
                    CloudObject[
                    "https://www.wolframcloud.com/objects/arnoudb/Resources/\
972/9725f1c4-fd15-485f-8fe2-fb0138eda5c0/download/DefinitionData"], 
                    "ShortName" -> "BitFlip", "SymbolName" -> 
                    "FunctionRepository`$9725f1c4fd15485f8fe2fb0138eda5c0`\
BitFlip", "ResourceLocations" -> {
                    CloudObject[
                    "https://www.wolframcloud.com/objects/arnoudb/Resources/\
972/9725f1c4-fd15-485f-8fe2-fb0138eda5c0"]}, "ExampleNotebookData" -> 
                    Automatic]]], Selectable -> False], 
                    RawBoxes[
                    RowBox[{"ResourceFunction", "[", 
                    InterpretationBox[
                    RowBox[{"CloudObject", "[", 
                    
                    TemplateBox[{
                    "\"https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip\"", 
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"}, "HyperlinkURL"], "]"}], 
                    CloudObject[
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"], SelectWithContents -> True], "]"}]]}, 
                    "ClickToCopyTemplate"]}}, AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
                    "Grid"], "\"\"", 
                   StyleBox[
                   "\"Thu 24 Jan 2019 09:42:23\"", FontSlant -> Italic, 
                    FontColor -> GrayLevel[0.5], FontSize -> 0.9 Inherited, 
                    StripOnInput -> False], 
                   TagBox[
                    ButtonBox[
                    TagBox[
                    PaneSelectorBox[{False -> GraphicsBox[{
                    GrayLevel[
                    NCache[
                    Rational[64, 85], 0.7529411764705882]], 
                    
                    PolygonBox[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                    
                    PolygonBox[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                    PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                    None], True -> GraphicsBox[{
                    GrayLevel[
                    NCache[
                    Rational[128, 255], 0.5019607843137255]], 
                    
                    PolygonBox[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                    
                    PolygonBox[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                    PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                    None]}, 
                    Dynamic[
                    CurrentValue["MouseOver"]], ImageSize -> Automatic, 
                    FrameMargins -> 0], 
                    MouseAppearanceTag["LinkHand"]], 
                    ButtonFunction :> (Symbol["System`ResourceFunction"]; 
                    FunctionResource`DefinitionNotebook`Private`deleteMe[
                    "3c0bdd36-3ce3-4b57-9035-79a5d7823fca"]), Appearance -> 
                    None, BoxID -> "3c0bdd36-3ce3-4b57-9035-79a5d7823fca", 
                    Evaluator -> Automatic, Method -> "Preemptive"], 
                    MouseAppearanceTag["LinkHand"]]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Left, Left, Center, Right, Right}, 
                   "Rows" -> {{Center}}}, AutoDelete -> False, 
                 GridBoxItemSize -> {"Columns" -> {
                    Scaled[0.35], 
                    Scaled[0.35], Fit, Automatic^2}, 
                   "Rows" -> {{Automatic}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False,
              GridBoxBackground -> {"Columns" -> {{Automatic}}}, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0.5}}}, 
             BaselinePosition -> {1, 1}], True -> GridBox[{{
               OpenerBox[
                Dynamic[Typeset`var$$], Appearance -> Automatic, Enabled -> 
                Automatic, AutoAction -> False, ContinuousAction -> False], 
               TagBox[
                GridBox[{{
                   TagBox[
                    GridBox[{{"\"Published to the cloud\"", 
                    
                    TemplateBox[{
                    "\"\[RightGuillemet]\"", 
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"}, "HyperlinkURL"]}}, AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], 
                   TagBox[
                    GridBox[{{"\"ResourceFunction:\"", 
                    TemplateBox[{
                    InterpretationBox[
                    FrameBox[
                    TagBox[
                    GridBox[{{
                    StyleBox[
                    "\"\[EmptyCircle]\"", FontSize -> 1.2 Inherited, 
                    ShowStringCharacters -> False, FontColor -> 
                    RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], 
                    FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], Bold, Plain]], StripOnInput -> 
                    False], 
                    StyleBox[
                    "\"BitFlip\"", FontColor -> 
                    RGBColor[0.2784313725490196, 0.2784313725490196, 
                    0.2784313725490196], ShowAutoStyles -> False, 
                    ShowStringCharacters -> False, FontFamily -> "Roboto", 
                    FontSize -> 0.9 Inherited, FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], "DemiBold", Plain]], 
                    StripOnInput -> False]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], 
                    Background -> 
                    RGBColor[
                    0.9686274509803922, 0.9686274509803922, 
                    0.9686274509803922], ContentPadding -> False, 
                    FrameMargins -> {{3, 4}, {2, 2}}, FrameStyle -> Directive[
                    Thickness[1], 
                    RGBColor[
                    0.8627450980392157, 0.8627450980392157, 
                    0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> 
                    False, Selectable -> False], 
                    ResourceFunction[
                    ResourceObject[
                    Association[
                    "Name" -> "BitFlip", "UUID" -> 
                    "9725f1c4-fd15-485f-8fe2-fb0138eda5c0", "ResourceType" -> 
                    "Function", "Description" -> 
                    "Flip an individual bit in an integer (0 to 1, and 1 to \
0)", "Version" -> None, "ContributorInformation" -> 
                    Association["ContributedBy" -> "Arnoud Buzing"], 
                    "Documentation" -> Association["Usage" -> {
                    Association["Usage" -> BoxData[
                    RowBox[{
                    StyleBox[
                    RowBox[{
                    StyleBox["ResourceFunction", "ResourceFunctionSymbol"], 
                    "[", 
                    StyleBox["\"BitFlip\"", "ResourceFunctionName"], "]"}], 
                    "ResourceFunctionHandle"], "[", 
                    StyleBox[
                    RowBox[{"n", ",", "p"}], FontSlant -> "Italic"], "]"}]], 
                    "Description" -> "flips the pth bit of integer n."]}, 
                    "Notes" -> {
                    Cell[
                    TextData[{"The lowest bit of integer ", 
                    StyleBox["n", FontSlant -> "Italic"], 
                    " (e.g. signifying ", 
                    Cell[
                    BoxData[
                    FormBox[
                    SuperscriptBox["2", "0"], TraditionalForm]], FormatType -> 
                    "TraditionalForm"], ") is flipped with p=0."}], "Notes", 
                    CellEventActions -> {
                    Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
                    SelectedNotebook[], After, Cell]; NotebookFind[
                    SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> 
                    True, WrapAround -> True], Blank[NotebookSelection] :> 
                    SelectionMove[
                    SelectedNotebook[], All, CellContents, AutoScroll -> 
                    True]], PassEventsDown -> False, PassEventsUp -> False}, 
                    CellChangeTimes -> {{3.7573329664257574`*^9, 
                    3.757333051385191*^9}}, CellTags -> "TabNext", CellID -> 
                    521904482]}], "ExampleNotebook" -> NotebookObject[
                    FrontEndObject[
                    LinkObject["yhzwf_shm", 3, 1]], 37], "FunctionLocation" -> 
                    CloudObject[
                    "https://www.wolframcloud.com/objects/arnoudb/Resources/\
972/9725f1c4-fd15-485f-8fe2-fb0138eda5c0/download/DefinitionData"], 
                    "ShortName" -> "BitFlip", "SymbolName" -> 
                    
                    "FunctionRepository`$9725f1c4fd15485f8fe2fb0138eda5c0`\
BitFlip", "ResourceLocations" -> {
                    CloudObject[
                    "https://www.wolframcloud.com/objects/arnoudb/Resources/\
972/9725f1c4-fd15-485f-8fe2-fb0138eda5c0"]}, "ExampleNotebookData" -> 
                    Automatic]]], Selectable -> False], 
                    RawBoxes[
                    RowBox[{"ResourceFunction", "[", 
                    InterpretationBox[
                    RowBox[{"CloudObject", "[", 
                    
                    TemplateBox[{
                    "\"https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip\"", 
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"}, "HyperlinkURL"], "]"}], 
                    CloudObject[
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"], SelectWithContents -> True], "]"}]]}, 
                    "ClickToCopyTemplate"]}}, AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
                    "Grid"], "\"\"", 
                   StyleBox[
                   "\"Thu 24 Jan 2019 09:42:23\"", FontSlant -> Italic, 
                    FontColor -> GrayLevel[0.5], FontSize -> 0.9 Inherited, 
                    StripOnInput -> False], 
                   TagBox[
                    ButtonBox[
                    TagBox[
                    PaneSelectorBox[{False -> GraphicsBox[{
                    GrayLevel[
                    NCache[
                    Rational[64, 85], 0.7529411764705882]], 
                    
                    PolygonBox[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                    
                    PolygonBox[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                    PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                    None], True -> GraphicsBox[{
                    GrayLevel[
                    NCache[
                    Rational[128, 255], 0.5019607843137255]], 
                    
                    PolygonBox[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                    
                    PolygonBox[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                    PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                    None]}, 
                    Dynamic[
                    CurrentValue["MouseOver"]], ImageSize -> Automatic, 
                    FrameMargins -> 0], 
                    MouseAppearanceTag["LinkHand"]], 
                    ButtonFunction :> (Symbol["System`ResourceFunction"]; 
                    FunctionResource`DefinitionNotebook`Private`deleteMe[
                    "3c0bdd36-3ce3-4b57-9035-79a5d7823fca"]), Appearance -> 
                    None, BoxID -> "3c0bdd36-3ce3-4b57-9035-79a5d7823fca", 
                    Evaluator -> Automatic, Method -> "Preemptive"], 
                    MouseAppearanceTag["LinkHand"]]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Left, Left, Center, Right, Right}, 
                   "Rows" -> {{Center}}}, AutoDelete -> False, 
                 GridBoxItemSize -> {"Columns" -> {
                    Scaled[0.35], 
                    Scaled[0.35], Fit, Automatic^2}, 
                   "Rows" -> {{Automatic}}}], "Grid"]}, {"", 
               PaneBox[
                TagBox[
                 GridBox[{{"\"\"", 
                    StyleBox[
                    TagBox[
                    
                    GridBox[{{
                    "\"\[FilledVerySmallSquare]\"", "\"Cloud object:\"", 
                    TemplateBox[{
                    RowBox[{"CloudObject", "[", 
                    
                    TemplateBox[{
                    
                    "\"https://\[Ellipsis]/arnoudb/DeployedResources/Function/\
BitFlip\"", 
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"}, "HyperlinkURL"], "]"}], 
                    RawBoxes[
                    InterpretationBox[
                    RowBox[{"CloudObject", "[", 
                    
                    TemplateBox[{
                    "\"https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip\"", 
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"}, "HyperlinkURL"], "]"}], 
                    CloudObject[
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"], SelectWithContents -> True]]}, 
                    "ClickToCopyTemplate"]}, {
                    "\"\[FilledVerySmallSquare]\"", "\"Visit web page:\"", 
                    TemplateBox[{
                    TagBox[
                    
                    RowBox[{"\"https://www.wolframclou\"", "\[Ellipsis]", 
                    "\"sources/Function/BitFlip\""}], Short[#, 0.75]& ], 
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"}, "HyperlinkURL"]}, {
                    "\"\[FilledVerySmallSquare]\"", "\"Resource object:\"", 
                    TemplateBox[{
                    RowBox[{"ResourceObject", "[", 
                    InterpretationBox[
                    FrameBox[
                    TagBox[
                    GridBox[{{
                    StyleBox[
                    "\"\[EmptyCircle]\"", FontSize -> 1.2 Inherited, 
                    ShowStringCharacters -> False, FontColor -> 
                    RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], 
                    FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], Bold, Plain]], StripOnInput -> 
                    False], 
                    StyleBox[
                    "\"BitFlip\"", FontColor -> 
                    RGBColor[0.2784313725490196, 0.2784313725490196, 
                    0.2784313725490196], ShowAutoStyles -> False, 
                    ShowStringCharacters -> False, FontFamily -> "Roboto", 
                    FontSize -> 0.9 Inherited, FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], "DemiBold", Plain]], 
                    StripOnInput -> False]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], 
                    Background -> 
                    RGBColor[0.9686274509803922, 0.9686274509803922, 
                    0.9686274509803922], ContentPadding -> False, 
                    FrameMargins -> {{3, 4}, {2, 2}}, FrameStyle -> Directive[
                    Thickness[1], 
                    RGBColor[
                    0.8627450980392157, 0.8627450980392157, 
                    0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> 
                    False, Selectable -> False], 
                    ResourceFunction[
                    ResourceObject[
                    Association[
                    "Name" -> "BitFlip", "UUID" -> 
                    "9725f1c4-fd15-485f-8fe2-fb0138eda5c0", "ResourceType" -> 
                    "Function", "Version" -> None, "Description" -> 
                    "Flip an individual bit in an integer (0 to 1, and 1 to \
0)", "SymbolName" -> 
                    "FunctionRepository`$9725f1c4fd15485f8fe2fb0138eda5c0`\
BitFlip", "FunctionLocation" -> None, "ShortName" -> "BitFlip"]]], Selectable -> 
                    False], "]"}], 
                    RawBoxes[
                    InterpretationBox[
                    RowBox[{
                    TagBox["ResourceObject", "SummaryHead"], "[", 
                    
                    DynamicModuleBox[{
                    Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
                    TemplateBox[{
                    PaneSelectorBox[{False -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquarePlusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 3.5 (CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification])}]], 
                    GraphicsBox[
                    RasterBox[CompressedData["
1:eJztmzFvEzEUxyNg6JiNtUysmRADQ7qA2KJWrEitCBUMAaVFiO0GRoZILIyV
+gGQGJkqBmZgR06FKoRQRRAghBA6/JI7al585+fzc85X50n/Km3vzu8X28/2
s+/C1r3122dardbOivyxvvlwbTjcfLTRlr/cGOzc2R70b10f7Pa3+8PLW2fl
H69kOieVpqkXiWsrHan7UntSB1KpQQfZtXBPx5dfzIy9zOcJgc+kSfasXt1c
iLEtlUiNGRiLNM7KaNfMmjDVpU2dJzVwdj3XJ6W+uwtqu6MaObFGvtq4fO6q
1JsAGLHAp1Vm1o5YbD+1FfjGMoY1gJWNuUGszsxi1l+bxKoyW/VnMYvDIcYm
qsB3ctwWYY05VTUisnYD8JVLXQJvnfMmbo0NrEkAPnIrKYlRTYzHJgHTXOw6
pXVbWMeC0G8/Prhq1OHG+bn7ju5eKrye4i8806Y8jcaItUcpl2I6hp/vXhVe
TykXnmlTXoH+5UnELG9ivOfL/uNC33+8fjH9/4ebF428f75Ppn+D6ynlwjO/
vdzXlm3Bu6fwkuMUtB9sv96/Lb1H9fP3p0Onvvj5Sb8q7yQ9WRNYlYnt6/On
ZF747MKLv28L3lSc5EydeE3tUuU1fTe25Vvy5vnhhfFS+6wnXmou3Atv2ThT
Nm458FqzcvKWjTPYmHid29OSd8m75OUrf8nLIxg7wFcQtnwuDDp+tlvKC/Ps
JvDCnB3m+RTDazTO+ST44chLHoPh2ab61a2RVF74znRrKKpw+RXmG9bzSVzP
Nv03N1gnUesa8gVwvc4qzCet1wvY/yq8uVHbVZFVWC9YrwdhjWPDG5Cme0vC
Mi+JY0ZDeKfr/dQin6MKxp3c8jUtxGUYb8A4xh1mqfkcUr4OC3JKucFnHMcg
9xIAZ67/zjWJivsouC87xBKfmttXEQ75duDK2zFu44FIl29n2U9xmUt4knY/
xbWOA5Z2v8y1Hweq0v3QNML97jSy8wxK7IrmvErGHM15JIU5mvNmDWSO6Qwl
GyvqzyHGMPbzwChuhzRWeTvvjbijOM+v4Y7ifQ1NG4/ifRwN+6l/36qEPcj3
6f4CgLLCWA==
                    "], {{0, 0}, {60, 60}}, {0, 255}, ColorFunction -> 
                    RGBColor], AspectRatio -> 1, Axes -> False, Background -> 
                    None, Frame -> None, FrameTicks -> None, ImageSize -> 
                    Dynamic[{Automatic, 3.5 (CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification])}, 
                    ImageSizeCache -> {45., {0., 9.}}]], 
                    GridBox[{{
                    RowBox[{
                    TagBox["\"Name: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"BitFlip\"", "SummaryItem"]}], 
                    TagBox["\"\"", "SummaryItem"]}, {
                    RowBox[{
                    TagBox["\"Type: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"Function\"", "SummaryItem"]}], 
                    "\[SpanFromLeft]"}, {
                    RowBox[{
                    TagBox["\"Description: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    "\"Flip an individual bit in an integer (0 to 1, and 1 to \
0)\"", "SummaryItem"]}], "\[SpanFromLeft]"}}, 
                    GridBoxAlignment -> {"Columns" -> {{Left}}, 
                    "Rows" -> {{Automatic}}}, AutoDelete -> False, 
                    GridBoxItemSize -> {"Columns" -> {{Automatic}}, 
                    "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{2}}, 
                    "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}], True -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquareMinusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 3.5 (CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification])}]], 
                    GraphicsBox[
                    RasterBox[CompressedData["
1:eJztmzFvEzEUxyNg6JiNtUysmRADQ7qA2KJWrEitCBUMAaVFiO0GRoZILIyV
+gGQGJkqBmZgR06FKoRQRRAghBA6/JI7al585+fzc85X50n/Km3vzu8X28/2
s+/C1r3122dardbOivyxvvlwbTjcfLTRlr/cGOzc2R70b10f7Pa3+8PLW2fl
H69kOieVpqkXiWsrHan7UntSB1KpQQfZtXBPx5dfzIy9zOcJgc+kSfasXt1c
iLEtlUiNGRiLNM7KaNfMmjDVpU2dJzVwdj3XJ6W+uwtqu6MaObFGvtq4fO6q
1JsAGLHAp1Vm1o5YbD+1FfjGMoY1gJWNuUGszsxi1l+bxKoyW/VnMYvDIcYm
qsB3ctwWYY05VTUisnYD8JVLXQJvnfMmbo0NrEkAPnIrKYlRTYzHJgHTXOw6
pXVbWMeC0G8/Prhq1OHG+bn7ju5eKrye4i8806Y8jcaItUcpl2I6hp/vXhVe
TykXnmlTXoH+5UnELG9ivOfL/uNC33+8fjH9/4ebF428f75Ppn+D6ynlwjO/
vdzXlm3Bu6fwkuMUtB9sv96/Lb1H9fP3p0Onvvj5Sb8q7yQ9WRNYlYnt6/On
ZF747MKLv28L3lSc5EydeE3tUuU1fTe25Vvy5vnhhfFS+6wnXmou3Atv2ThT
Nm458FqzcvKWjTPYmHid29OSd8m75OUrf8nLIxg7wFcQtnwuDDp+tlvKC/Ps
JvDCnB3m+RTDazTO+ST44chLHoPh2ab61a2RVF74znRrKKpw+RXmG9bzSVzP
Nv03N1gnUesa8gVwvc4qzCet1wvY/yq8uVHbVZFVWC9YrwdhjWPDG5Cme0vC
Mi+JY0ZDeKfr/dQin6MKxp3c8jUtxGUYb8A4xh1mqfkcUr4OC3JKucFnHMcg
9xIAZ67/zjWJivsouC87xBKfmttXEQ75duDK2zFu44FIl29n2U9xmUt4knY/
xbWOA5Z2v8y1Hweq0v3QNML97jSy8wxK7IrmvErGHM15JIU5mvNmDWSO6Qwl
GyvqzyHGMPbzwChuhzRWeTvvjbijOM+v4Y7ifQ1NG4/ifRwN+6l/36qEPcj3
6f4CgLLCWA==
                    "], {{0, 0}, {60, 60}}, {0, 255}, ColorFunction -> 
                    RGBColor], AspectRatio -> 1, Axes -> False, Background -> 
                    None, Frame -> None, FrameTicks -> None, ImageSize -> 
                    Dynamic[{Automatic, 3.5 (CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification])}, 
                    ImageSizeCache -> {45., {0., 9.}}]], 
                    GridBox[{{
                    RowBox[{
                    TagBox["\"Name: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"BitFlip\"", "SummaryItem"]}], 
                    TagBox["\"\"", "SummaryItem"]}, {
                    RowBox[{
                    TagBox["\"Type: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"Function\"", "SummaryItem"]}], 
                    "\[SpanFromLeft]"}, {
                    RowBox[{
                    TagBox["\"Description: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    "\"Flip an individual bit in an integer (0 to 1, and 1 to \
0)\"", "SummaryItem"]}], "\[SpanFromLeft]"}, {
                    RowBox[{
                    TagBox["\"UUID: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    "\"9725f1c4-fd15-485f-8fe2-fb0138eda5c0\"", 
                    "SummaryItem"]}], ""}, {
                    RowBox[{
                    TagBox["\"Version: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["None", "SummaryItem"]}], ""}}, 
                    GridBoxAlignment -> {"Columns" -> {{Left}}, 
                    "Rows" -> {{Automatic}}}, AutoDelete -> False, 
                    GridBoxItemSize -> {"Columns" -> {{Automatic}}, 
                    "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{2}}, 
                    "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}]}, 
                    Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
                    "SummaryPanel"], DynamicModuleValues :> {}], "]"}], 
                    ResourceObject[
                    Association[
                    "Name" -> "BitFlip", "UUID" -> 
                    "9725f1c4-fd15-485f-8fe2-fb0138eda5c0", "ResourceType" -> 
                    "Function", "Version" -> None, "Description" -> 
                    "Flip an individual bit in an integer (0 to 1, and 1 to \
0)", "SymbolName" -> 
                    "FunctionRepository`$9725f1c4fd15485f8fe2fb0138eda5c0`\
BitFlip", "FunctionLocation" -> None, "ShortName" -> "BitFlip"]], Selectable -> 
                    False, Editable -> False, SelectWithContents -> True]]}, 
                    "ClickToCopyTemplate"]}}, 
                    GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {Automatic, Automatic, Fit}, 
                    "Rows" -> {{Automatic}}}], "Grid"], FontColor -> 
                    GrayLevel[0.5], FontSize -> 12, StripOnInput -> False]}}, 
                  GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> 
                  False, GridBoxDividers -> {
                   "Columns" -> {{None}}, "RowsIndexed" -> {-1 -> GrayLevel[
                    Rational[239, 255]]}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {Automatic, Fit}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {1, {}, 1}, "Rows" -> {1, {}, 2}}], "Grid"], 
                ImageMargins -> 0]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False,
              GridBoxBackground -> {"Columns" -> {{Automatic}}}, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0.5}}}, 
             BaselinePosition -> {1, 1}]}, 
          Dynamic[Typeset`var$$], Alignment -> Automatic, ImageSize -> 
          Automatic, ImageMargins -> 0, BaseStyle -> {}, DefaultBaseStyle -> 
          "OpenerView", BaselinePosition -> Baseline], Deployed -> False, 
         StripOnInput -> False], 
        OpenerView[{
          Grid[{{
             Grid[{{"Published to the cloud", 
                Hyperlink[
                "\[RightGuillemet]", 
                 "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"]}}, Spacings -> 0.25], 
             Grid[{{"ResourceFunction:", 
                RawBoxes[
                 TemplateBox[{
                   InterpretationBox[
                    FrameBox[
                    TagBox[
                    GridBox[{{
                    StyleBox[
                    "\"\[EmptyCircle]\"", FontSize -> 1.2 Inherited, 
                    ShowStringCharacters -> False, FontColor -> 
                    RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], 
                    FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], Bold, Plain]], StripOnInput -> 
                    False], 
                    StyleBox[
                    "\"BitFlip\"", FontColor -> 
                    RGBColor[
                    0.2784313725490196, 0.2784313725490196, 
                    0.2784313725490196], ShowAutoStyles -> False, 
                    ShowStringCharacters -> False, FontFamily -> "Roboto", 
                    FontSize -> 0.9 Inherited, FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], "DemiBold", Plain]], 
                    StripOnInput -> False]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], 
                    Background -> 
                    RGBColor[
                    0.9686274509803922, 0.9686274509803922, 
                    0.9686274509803922], ContentPadding -> False, 
                    FrameMargins -> {{3, 4}, {2, 2}}, FrameStyle -> Directive[
                    Thickness[1], 
                    RGBColor[
                    0.8627450980392157, 0.8627450980392157, 
                    0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> 
                    False, Selectable -> False], 
                    ResourceFunction[
                    ResourceObject[
                    Association[
                    "Name" -> "BitFlip", "UUID" -> 
                    "9725f1c4-fd15-485f-8fe2-fb0138eda5c0", "ResourceType" -> 
                    "Function", "Description" -> 
                    "Flip an individual bit in an integer (0 to 1, and 1 to \
0)", "Version" -> None, "ContributorInformation" -> 
                    Association["ContributedBy" -> "Arnoud Buzing"], 
                    "Documentation" -> Association["Usage" -> {
                    Association["Usage" -> BoxData[
                    RowBox[{
                    StyleBox[
                    RowBox[{
                    StyleBox["ResourceFunction", "ResourceFunctionSymbol"], 
                    "[", 
                    StyleBox["\"BitFlip\"", "ResourceFunctionName"], "]"}], 
                    "ResourceFunctionHandle"], "[", 
                    StyleBox[
                    RowBox[{"n", ",", "p"}], FontSlant -> "Italic"], "]"}]], 
                    "Description" -> "flips the pth bit of integer n."]}, 
                    "Notes" -> {
                    Cell[
                    TextData[{"The lowest bit of integer ", 
                    StyleBox["n", FontSlant -> "Italic"], 
                    " (e.g. signifying ", 
                    Cell[
                    BoxData[
                    FormBox[
                    SuperscriptBox["2", "0"], TraditionalForm]], FormatType -> 
                    "TraditionalForm"], ") is flipped with p=0."}], "Notes", 
                    CellEventActions -> {
                    Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
                    SelectedNotebook[], After, Cell]; NotebookFind[
                    SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> 
                    True, WrapAround -> True], Blank[NotebookSelection] :> 
                    SelectionMove[
                    SelectedNotebook[], All, CellContents, AutoScroll -> 
                    True]], PassEventsDown -> False, PassEventsUp -> False}, 
                    CellChangeTimes -> {{3.7573329664257574`*^9, 
                    3.757333051385191*^9}}, CellTags -> "TabNext", CellID -> 
                    521904482]}], "ExampleNotebook" -> NotebookObject[
                    FrontEndObject[
                    LinkObject["yhzwf_shm", 3, 1]], 37], "FunctionLocation" -> 
                    CloudObject[
                    "https://www.wolframcloud.com/objects/arnoudb/Resources/\
972/9725f1c4-fd15-485f-8fe2-fb0138eda5c0/download/DefinitionData"], 
                    "ShortName" -> "BitFlip", "SymbolName" -> 
                    "FunctionRepository`$9725f1c4fd15485f8fe2fb0138eda5c0`\
BitFlip", "ResourceLocations" -> {
                    CloudObject[
                    "https://www.wolframcloud.com/objects/arnoudb/Resources/\
972/9725f1c4-fd15-485f-8fe2-fb0138eda5c0"]}, "ExampleNotebookData" -> 
                    Automatic]]], Selectable -> False], 
                   RawBoxes[
                    RowBox[{"ResourceFunction", "[", 
                    InterpretationBox[
                    RowBox[{"CloudObject", "[", 
                    
                    TemplateBox[{
                    "\"https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip\"", 
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"}, "HyperlinkURL"], "]"}], 
                    CloudObject[
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"], SelectWithContents -> True], "]"}]]}, 
                  "ClickToCopyTemplate"]]}}], "", 
             Style[
             "Thu 24 Jan 2019 09:42:23", FontSlant -> Italic, FontColor -> 
              GrayLevel[0.5], FontSize -> 0.9 Inherited], 
             MouseAppearance[
              Button[
               MouseAppearance[
                Mouseover[
                 Graphics[{
                   GrayLevel[
                    Rational[64, 85]], 
                   
                   Polygon[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                   
                   Polygon[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                  PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                  None], 
                 Graphics[{
                   GrayLevel[
                    Rational[128, 255]], 
                   
                   Polygon[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                   
                   Polygon[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                  PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                  None]], "LinkHand"], Symbol["System`ResourceFunction"]; 
               FunctionResource`DefinitionNotebook`Private`deleteMe[
                "3c0bdd36-3ce3-4b57-9035-79a5d7823fca"], Appearance -> None, 
               BoxID -> "3c0bdd36-3ce3-4b57-9035-79a5d7823fca"], 
              "LinkHand"]}}, ItemSize -> {{
              Scaled[0.35], 
              Scaled[0.35], Fit, Automatic^2}, Automatic}, 
           Alignment -> {{Left, Left, Center, Right, Right}, Center}], 
          Grid[{{"", 
             Style[
              Grid[{{"\[FilledVerySmallSquare]", "Cloud object:", 
                 RawBoxes[
                  TemplateBox[{
                    RowBox[{"CloudObject", "[", 
                    
                    TemplateBox[{
                    "\"https://\[Ellipsis]/arnoudb/DeployedResources/Function/\
BitFlip\"", 
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"}, "HyperlinkURL"], "]"}], 
                    RawBoxes[
                    InterpretationBox[
                    RowBox[{"CloudObject", "[", 
                    
                    TemplateBox[{
                    "\"https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip\"", 
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"}, "HyperlinkURL"], "]"}], 
                    CloudObject[
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"], SelectWithContents -> True]]}, 
                   "ClickToCopyTemplate"]]}, {
                "\[FilledVerySmallSquare]", "Visit web page:", 
                 Hyperlink[
                  RawBoxes[
                   TagBox[
                    
                    RowBox[{
                    "\"https://www.wolframclou\"", "\[Ellipsis]", 
                    "\"sources/Function/BitFlip\""}], Short[#, 0.75]& ]], 
                  "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"]}, {
                "\[FilledVerySmallSquare]", "Resource object:", 
                 RawBoxes[
                  TemplateBox[{
                    RowBox[{"ResourceObject", "[", 
                    InterpretationBox[
                    FrameBox[
                    TagBox[
                    GridBox[{{
                    StyleBox[
                    "\"\[EmptyCircle]\"", FontSize -> 1.2 Inherited, 
                    ShowStringCharacters -> False, FontColor -> 
                    RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], 
                    FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], Bold, Plain]], StripOnInput -> 
                    False], 
                    StyleBox[
                    "\"BitFlip\"", FontColor -> 
                    RGBColor[0.2784313725490196, 0.2784313725490196, 
                    0.2784313725490196], ShowAutoStyles -> False, 
                    ShowStringCharacters -> False, FontFamily -> "Roboto", 
                    FontSize -> 0.9 Inherited, FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], "DemiBold", Plain]], 
                    StripOnInput -> False]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], 
                    Background -> 
                    RGBColor[
                    0.9686274509803922, 0.9686274509803922, 
                    0.9686274509803922], ContentPadding -> False, 
                    FrameMargins -> {{3, 4}, {2, 2}}, FrameStyle -> Directive[
                    Thickness[1], 
                    RGBColor[
                    0.8627450980392157, 0.8627450980392157, 
                    0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> 
                    False, Selectable -> False], 
                    ResourceFunction[
                    ResourceObject[
                    Association[
                    "Name" -> "BitFlip", "UUID" -> 
                    "9725f1c4-fd15-485f-8fe2-fb0138eda5c0", "ResourceType" -> 
                    "Function", "Version" -> None, "Description" -> 
                    "Flip an individual bit in an integer (0 to 1, and 1 to \
0)", "SymbolName" -> 
                    "FunctionRepository`$9725f1c4fd15485f8fe2fb0138eda5c0`\
BitFlip", "FunctionLocation" -> None, "ShortName" -> "BitFlip"]]], Selectable -> 
                    False], "]"}], 
                    RawBoxes[
                    InterpretationBox[
                    RowBox[{
                    TagBox["ResourceObject", "SummaryHead"], "[", 
                    
                    DynamicModuleBox[{
                    Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
                    TemplateBox[{
                    PaneSelectorBox[{False -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquarePlusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    GraphicsBox[
                    RasterBox[CompressedData["
1:eJztmzFvEzEUxyNg6JiNtUysmRADQ7qA2KJWrEitCBUMAaVFiO0GRoZILIyV
+gGQGJkqBmZgR06FKoRQRRAghBA6/JI7al585+fzc85X50n/Km3vzu8X28/2
s+/C1r3122dardbOivyxvvlwbTjcfLTRlr/cGOzc2R70b10f7Pa3+8PLW2fl
H69kOieVpqkXiWsrHan7UntSB1KpQQfZtXBPx5dfzIy9zOcJgc+kSfasXt1c
iLEtlUiNGRiLNM7KaNfMmjDVpU2dJzVwdj3XJ6W+uwtqu6MaObFGvtq4fO6q
1JsAGLHAp1Vm1o5YbD+1FfjGMoY1gJWNuUGszsxi1l+bxKoyW/VnMYvDIcYm
qsB3ctwWYY05VTUisnYD8JVLXQJvnfMmbo0NrEkAPnIrKYlRTYzHJgHTXOw6
pXVbWMeC0G8/Prhq1OHG+bn7ju5eKrye4i8806Y8jcaItUcpl2I6hp/vXhVe
TykXnmlTXoH+5UnELG9ivOfL/uNC33+8fjH9/4ebF428f75Ppn+D6ynlwjO/
vdzXlm3Bu6fwkuMUtB9sv96/Lb1H9fP3p0Onvvj5Sb8q7yQ9WRNYlYnt6/On
ZF747MKLv28L3lSc5EydeE3tUuU1fTe25Vvy5vnhhfFS+6wnXmou3Atv2ThT
Nm458FqzcvKWjTPYmHid29OSd8m75OUrf8nLIxg7wFcQtnwuDDp+tlvKC/Ps
JvDCnB3m+RTDazTO+ST44chLHoPh2ab61a2RVF74znRrKKpw+RXmG9bzSVzP
Nv03N1gnUesa8gVwvc4qzCet1wvY/yq8uVHbVZFVWC9YrwdhjWPDG5Cme0vC
Mi+JY0ZDeKfr/dQin6MKxp3c8jUtxGUYb8A4xh1mqfkcUr4OC3JKucFnHMcg
9xIAZ67/zjWJivsouC87xBKfmttXEQ75duDK2zFu44FIl29n2U9xmUt4knY/
xbWOA5Z2v8y1Hweq0v3QNML97jSy8wxK7IrmvErGHM15JIU5mvNmDWSO6Qwl
GyvqzyHGMPbzwChuhzRWeTvvjbijOM+v4Y7ifQ1NG4/ifRwN+6l/36qEPcj3
6f4CgLLCWA==
                    "], {{0, 0}, {60, 60}}, {0, 255}, ColorFunction -> 
                    RGBColor], AspectRatio -> 1, Axes -> False, Background -> 
                    None, Frame -> None, FrameTicks -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}, ImageSizeCache -> {45., {0., 9.}}]], 
                    GridBox[{{
                    RowBox[{
                    TagBox["\"Name: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"BitFlip\"", "SummaryItem"]}], 
                    TagBox["\"\"", "SummaryItem"]}, {
                    RowBox[{
                    TagBox["\"Type: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"Function\"", "SummaryItem"]}], 
                    "\[SpanFromLeft]"}, {
                    RowBox[{
                    TagBox["\"Description: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    "\"Flip an individual bit in an integer (0 to 1, and 1 to \
0)\"", "SummaryItem"]}], "\[SpanFromLeft]"}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}], True -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquareMinusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    GraphicsBox[
                    RasterBox[CompressedData["
1:eJztmzFvEzEUxyNg6JiNtUysmRADQ7qA2KJWrEitCBUMAaVFiO0GRoZILIyV
+gGQGJkqBmZgR06FKoRQRRAghBA6/JI7al585+fzc85X50n/Km3vzu8X28/2
s+/C1r3122dardbOivyxvvlwbTjcfLTRlr/cGOzc2R70b10f7Pa3+8PLW2fl
H69kOieVpqkXiWsrHan7UntSB1KpQQfZtXBPx5dfzIy9zOcJgc+kSfasXt1c
iLEtlUiNGRiLNM7KaNfMmjDVpU2dJzVwdj3XJ6W+uwtqu6MaObFGvtq4fO6q
1JsAGLHAp1Vm1o5YbD+1FfjGMoY1gJWNuUGszsxi1l+bxKoyW/VnMYvDIcYm
qsB3ctwWYY05VTUisnYD8JVLXQJvnfMmbo0NrEkAPnIrKYlRTYzHJgHTXOw6
pXVbWMeC0G8/Prhq1OHG+bn7ju5eKrye4i8806Y8jcaItUcpl2I6hp/vXhVe
TykXnmlTXoH+5UnELG9ivOfL/uNC33+8fjH9/4ebF428f75Ppn+D6ynlwjO/
vdzXlm3Bu6fwkuMUtB9sv96/Lb1H9fP3p0Onvvj5Sb8q7yQ9WRNYlYnt6/On
ZF747MKLv28L3lSc5EydeE3tUuU1fTe25Vvy5vnhhfFS+6wnXmou3Atv2ThT
Nm458FqzcvKWjTPYmHid29OSd8m75OUrf8nLIxg7wFcQtnwuDDp+tlvKC/Ps
JvDCnB3m+RTDazTO+ST44chLHoPh2ab61a2RVF74znRrKKpw+RXmG9bzSVzP
Nv03N1gnUesa8gVwvc4qzCet1wvY/yq8uVHbVZFVWC9YrwdhjWPDG5Cme0vC
Mi+JY0ZDeKfr/dQin6MKxp3c8jUtxGUYb8A4xh1mqfkcUr4OC3JKucFnHMcg
9xIAZ67/zjWJivsouC87xBKfmttXEQ75duDK2zFu44FIl29n2U9xmUt4knY/
xbWOA5Z2v8y1Hweq0v3QNML97jSy8wxK7IrmvErGHM15JIU5mvNmDWSO6Qwl
GyvqzyHGMPbzwChuhzRWeTvvjbijOM+v4Y7ifQ1NG4/ifRwN+6l/36qEPcj3
6f4CgLLCWA==
                    "], {{0, 0}, {60, 60}}, {0, 255}, ColorFunction -> 
                    RGBColor], AspectRatio -> 1, Axes -> False, Background -> 
                    None, Frame -> None, FrameTicks -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}, ImageSizeCache -> {45., {0., 9.}}]], 
                    GridBox[{{
                    RowBox[{
                    TagBox["\"Name: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"BitFlip\"", "SummaryItem"]}], 
                    TagBox["\"\"", "SummaryItem"]}, {
                    RowBox[{
                    TagBox["\"Type: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"Function\"", "SummaryItem"]}], 
                    "\[SpanFromLeft]"}, {
                    RowBox[{
                    TagBox["\"Description: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    "\"Flip an individual bit in an integer (0 to 1, and 1 to \
0)\"", "SummaryItem"]}], "\[SpanFromLeft]"}, {
                    RowBox[{
                    TagBox["\"UUID: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    "\"9725f1c4-fd15-485f-8fe2-fb0138eda5c0\"", 
                    "SummaryItem"]}], ""}, {
                    RowBox[{
                    TagBox["\"Version: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["None", "SummaryItem"]}], ""}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}]}, 
                    Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
                    "SummaryPanel"], DynamicModuleValues :> {}], "]"}], 
                    ResourceObject[
                    Association[
                    "Name" -> "BitFlip", "UUID" -> 
                    "9725f1c4-fd15-485f-8fe2-fb0138eda5c0", "ResourceType" -> 
                    "Function", "Version" -> None, "Description" -> 
                    "Flip an individual bit in an integer (0 to 1, and 1 to \
0)", "SymbolName" -> 
                    "FunctionRepository`$9725f1c4fd15485f8fe2fb0138eda5c0`\
BitFlip", "FunctionLocation" -> None, "ShortName" -> "BitFlip"]], Selectable -> 
                    False, Editable -> False, SelectWithContents -> True]]}, 
                   "ClickToCopyTemplate"]]}}, Alignment -> Left, 
               ItemSize -> {{Automatic, Automatic, Fit}, Automatic}], 
              FontColor -> GrayLevel[0.5], FontSize -> 12]}}, 
           ItemSize -> {{Automatic, Fit}, Automatic}, Alignment -> Left, 
           Dividers -> {None, {-1 -> GrayLevel[
                Rational[239, 255]]}}, Spacings -> {{1, {}, 1}, {1, {}, 2}}]},
          False]], DynamicModuleValues -> Automatic], Setting[#, {0}]& ], 
     "Text", FontSize -> 12, FontColor -> GrayLevel[0.25], StripOnInput -> 
     False]], "StripeCell", CellFrameMargins -> {{25, 5}, {2, 2}}, 
   CellFrame -> {{0, 0}, {1, 0}}, CellFrameColor -> GrayLevel[0.75]], 
  Cell[
   BoxData[
    StyleBox[
     TagBox[
      DynamicModuleBox[{Typeset`var$$ = False}, 
       InterpretationBox[
        StyleBox[
         PaneSelectorBox[{False -> GridBox[{{
               OpenerBox[
                Dynamic[Typeset`var$$], Appearance -> Automatic, Enabled -> 
                Automatic, AutoAction -> False, ContinuousAction -> False], 
               TagBox[
                GridBox[{{
                   TagBox[
                    
                    GridBox[{{
                    "\"Your resource has been submitted for review.\"", 
                    "\"\""}}, AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], 
                   TagBox[
                    GridBox[{{"\"Submission ID:\"", 
                    TemplateBox[{"\"9958\"", 
                    RawBoxes["\"9958\""]}, "ClickToCopyTemplate"]}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
                    "Grid"], "\"\"", 
                   StyleBox[
                   "\"Thu 24 Jan 2019 09:43:21\"", FontSlant -> Italic, 
                    FontColor -> GrayLevel[0.5], FontSize -> 0.9 Inherited, 
                    StripOnInput -> False], 
                   TagBox[
                    ButtonBox[
                    TagBox[
                    PaneSelectorBox[{False -> GraphicsBox[{
                    GrayLevel[
                    NCache[
                    Rational[64, 85], 0.7529411764705882]], 
                    
                    PolygonBox[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                    
                    PolygonBox[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                    PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                    None], True -> GraphicsBox[{
                    GrayLevel[
                    NCache[
                    Rational[128, 255], 0.5019607843137255]], 
                    
                    PolygonBox[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                    
                    PolygonBox[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                    PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                    None]}, 
                    Dynamic[
                    CurrentValue["MouseOver"]], ImageSize -> Automatic, 
                    FrameMargins -> 0], 
                    MouseAppearanceTag["LinkHand"]], 
                    ButtonFunction :> (Symbol["System`ResourceFunction"]; 
                    FunctionResource`DefinitionNotebook`Private`deleteMe[
                    "0f8b0a5a-b443-4283-abd6-d31cff44f706"]), Appearance -> 
                    None, BoxID -> "0f8b0a5a-b443-4283-abd6-d31cff44f706", 
                    Evaluator -> Automatic, Method -> "Preemptive"], 
                    MouseAppearanceTag["LinkHand"]]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Left, Left, Center, Right, Right}, 
                   "Rows" -> {{Center}}}, AutoDelete -> False, 
                 GridBoxItemSize -> {"Columns" -> {
                    Scaled[0.35], 
                    Scaled[0.35], Fit, Automatic^2}, 
                   "Rows" -> {{Automatic}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False,
              GridBoxBackground -> {"Columns" -> {{Automatic}}}, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0.5}}}, 
             BaselinePosition -> {1, 1}], True -> GridBox[{{
               OpenerBox[
                Dynamic[Typeset`var$$], Appearance -> Automatic, Enabled -> 
                Automatic, AutoAction -> False, ContinuousAction -> False], 
               TagBox[
                GridBox[{{
                   TagBox[
                    
                    GridBox[{{
                    "\"Your resource has been submitted for review.\"", 
                    "\"\""}}, AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], 
                   TagBox[
                    GridBox[{{"\"Submission ID:\"", 
                    TemplateBox[{"\"9958\"", 
                    RawBoxes["\"9958\""]}, "ClickToCopyTemplate"]}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
                    "Grid"], "\"\"", 
                   StyleBox[
                   "\"Thu 24 Jan 2019 09:43:21\"", FontSlant -> Italic, 
                    FontColor -> GrayLevel[0.5], FontSize -> 0.9 Inherited, 
                    StripOnInput -> False], 
                   TagBox[
                    ButtonBox[
                    TagBox[
                    PaneSelectorBox[{False -> GraphicsBox[{
                    GrayLevel[
                    NCache[
                    Rational[64, 85], 0.7529411764705882]], 
                    
                    PolygonBox[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                    PolygonBox[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                    PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                    None], True -> GraphicsBox[{
                    GrayLevel[
                    NCache[
                    Rational[128, 255], 0.5019607843137255]], 
                    
                    PolygonBox[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                    
                    PolygonBox[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                    PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                    None]}, 
                    Dynamic[
                    CurrentValue["MouseOver"]], ImageSize -> Automatic, 
                    FrameMargins -> 0], 
                    MouseAppearanceTag["LinkHand"]], 
                    ButtonFunction :> (Symbol["System`ResourceFunction"]; 
                    FunctionResource`DefinitionNotebook`Private`deleteMe[
                    "0f8b0a5a-b443-4283-abd6-d31cff44f706"]), Appearance -> 
                    None, BoxID -> "0f8b0a5a-b443-4283-abd6-d31cff44f706", 
                    Evaluator -> Automatic, Method -> "Preemptive"], 
                    MouseAppearanceTag["LinkHand"]]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Left, Left, Center, Right, Right}, 
                   "Rows" -> {{Center}}}, AutoDelete -> False, 
                 GridBoxItemSize -> {"Columns" -> {
                    Scaled[0.35], 
                    Scaled[0.35], Fit, Automatic^2}, 
                   "Rows" -> {{Automatic}}}], "Grid"]}, {"", 
               PaneBox[
                TagBox[
                 GridBox[{{"\"\"", 
                    StyleBox[
                    TagBox[
                    GridBox[{{
                    "\"\[FilledVerySmallSquare]\"", "\"Submission result:\"", 
                    TemplateBox[{
                    TagBox[
                    InterpretationBox[
                    RowBox[{
                    TagBox["Success", "SummaryHead"], "[", 
                    
                    DynamicModuleBox[{
                    Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
                    TemplateBox[{
                    PaneSelectorBox[{False -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquarePlusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 3.5 (CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification])}]], 
                    FrameBox[
                    StyleBox["\"\[Checkmark]\"", 
                    Directive[
                    RGBColor[
                    0.3607843137254902, 0.596078431372549, 
                    0.3803921568627451], 25], StripOnInput -> False], 
                    ContentPadding -> False, FrameStyle -> None, 
                    FrameMargins -> {{0, 0}, {0, 0}}, StripOnInput -> False], 
                    GridBox[{{
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Message\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox[
                    "\"Your resource has been submitted for review. Your \
submission id is 9958.\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Name\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"BitFlip\"", "SummaryItem"]}]}}, 
                    GridBoxAlignment -> {"Columns" -> {{Left}}, 
                    "Rows" -> {{Automatic}}}, AutoDelete -> False, 
                    GridBoxItemSize -> {"Columns" -> {{Automatic}}, 
                    "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{2}}, 
                    "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}], True -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquareMinusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 3.5 (CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification])}]], 
                    FrameBox[
                    StyleBox["\"\[Checkmark]\"", 
                    Directive[
                    RGBColor[
                    0.3607843137254902, 0.596078431372549, 
                    0.3803921568627451], 25], StripOnInput -> False], 
                    ContentPadding -> False, FrameStyle -> None, 
                    FrameMargins -> {{0, 0}, {0, 0}}, StripOnInput -> False], 
                    GridBox[{{
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Message\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox[
                    "\"Your resource has been submitted for review. Your \
submission id is 9958.\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Name\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"BitFlip\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"ShortName\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"BitFlip\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"UUID\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox[
                    "\"b4c9c80a-7843-41f4-a205-56b3f2dd5b69\"", 
                    "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"SubmissionID\"", "\": \""}, "RowDefault"],
                     "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"9958\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"ResourceType\"", "\": \""}, "RowDefault"],
                     "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"Function\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    
                    TemplateBox[{"\"SubmissionDate\"", "\": \""}, 
                    "RowDefault"], "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    TemplateBox[{
                    RowBox[{"\"Thu 24 Jan 2019 09:43:20\"", 
                    StyleBox[
                    RowBox[{"\"GMT\"", "\[InvisibleSpace]", 
                    StyleBox[
                    RowBox[{"-", "6.`"}], NumberMarks -> False, StripOnInput -> 
                    False]}], FontColor -> GrayLevel[0.5]]}], 
                    RowBox[{"DateObject", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    
                    RowBox[{"2019", ",", "1", ",", "24", ",", "9", ",", "43", 
                    ",", "20.907798`8.072883279229078"}], "}"}], ",", 
                    "\"Instant\"", ",", "\"Gregorian\"", ",", 
                    RowBox[{"-", "6.`"}]}], "]"}]}, "DateObject", Editable -> 
                    False], "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Status\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"Copying\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Tag\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"ResourceSubmission\"", "SummaryItem"]}]}}, 
                    GridBoxAlignment -> {"Columns" -> {{Left}}, 
                    "Rows" -> {{Automatic}}}, AutoDelete -> False, 
                    GridBoxItemSize -> {"Columns" -> {{Automatic}}, 
                    "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{2}}, 
                    "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}]}, 
                    Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
                    "SummaryPanel"], DynamicModuleValues :> {}], "]"}], 
                    Success["ResourceSubmission", 
                    Association[
                    "MessageTemplate" -> 
                    "Your resource has been submitted for review. Your \
submission id is `SubmissionID`.", "MessageParameters" -> 
                    Association["SubmissionID" -> "9958"], "Name" -> 
                    "BitFlip", "ShortName" -> "BitFlip", "UUID" -> 
                    "b4c9c80a-7843-41f4-a205-56b3f2dd5b69", "SubmissionID" -> 
                    "9958", "ResourceType" -> "Function", "SubmissionDate" -> 
                    DateObject[{2019, 1, 24, 9, 43, 
                    20.907798`8.072883279229078}, "Instant", 
                    "Gregorian", -6.], "Status" -> "Copying"]], Selectable -> 
                    False, Editable -> False, SelectWithContents -> True], 
                    Short[#, 0.75]& ], 
                    RawBoxes[
                    InterpretationBox[
                    RowBox[{
                    TagBox["Success", "SummaryHead"], "[", 
                    
                    DynamicModuleBox[{
                    Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
                    TemplateBox[{
                    PaneSelectorBox[{False -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquarePlusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 3.5 (CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification])}]], 
                    FrameBox[
                    StyleBox["\"\[Checkmark]\"", 
                    Directive[
                    RGBColor[
                    0.3607843137254902, 0.596078431372549, 
                    0.3803921568627451], 25], StripOnInput -> False], 
                    ContentPadding -> False, FrameStyle -> None, 
                    FrameMargins -> {{0, 0}, {0, 0}}, StripOnInput -> False], 
                    GridBox[{{
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Message\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox[
                    "\"Your resource has been submitted for review. Your \
submission id is 9958.\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Name\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"BitFlip\"", "SummaryItem"]}]}}, 
                    GridBoxAlignment -> {"Columns" -> {{Left}}, 
                    "Rows" -> {{Automatic}}}, AutoDelete -> False, 
                    GridBoxItemSize -> {"Columns" -> {{Automatic}}, 
                    "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{2}}, 
                    "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}], True -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquareMinusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 3.5 (CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification])}]], 
                    FrameBox[
                    StyleBox["\"\[Checkmark]\"", 
                    Directive[
                    RGBColor[
                    0.3607843137254902, 0.596078431372549, 
                    0.3803921568627451], 25], StripOnInput -> False], 
                    ContentPadding -> False, FrameStyle -> None, 
                    FrameMargins -> {{0, 0}, {0, 0}}, StripOnInput -> False], 
                    GridBox[{{
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Message\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox[
                    "\"Your resource has been submitted for review. Your \
submission id is 9958.\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Name\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"BitFlip\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"ShortName\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"BitFlip\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"UUID\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox[
                    "\"b4c9c80a-7843-41f4-a205-56b3f2dd5b69\"", 
                    "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"SubmissionID\"", "\": \""}, "RowDefault"],
                     "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"9958\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"ResourceType\"", "\": \""}, "RowDefault"],
                     "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"Function\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    
                    TemplateBox[{"\"SubmissionDate\"", "\": \""}, 
                    "RowDefault"], "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    TemplateBox[{
                    RowBox[{"\"Thu 24 Jan 2019 09:43:20\"", 
                    StyleBox[
                    RowBox[{"\"GMT\"", "\[InvisibleSpace]", 
                    StyleBox[
                    RowBox[{"-", "6.`"}], NumberMarks -> False, StripOnInput -> 
                    False]}], FontColor -> GrayLevel[0.5]]}], 
                    RowBox[{"DateObject", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    
                    RowBox[{"2019", ",", "1", ",", "24", ",", "9", ",", "43", 
                    ",", "20.907798`8.072883279229078"}], "}"}], ",", 
                    "\"Instant\"", ",", "\"Gregorian\"", ",", 
                    RowBox[{"-", "6.`"}]}], "]"}]}, "DateObject", Editable -> 
                    False], "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Status\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"Copying\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Tag\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"ResourceSubmission\"", "SummaryItem"]}]}}, 
                    GridBoxAlignment -> {"Columns" -> {{Left}}, 
                    "Rows" -> {{Automatic}}}, AutoDelete -> False, 
                    GridBoxItemSize -> {"Columns" -> {{Automatic}}, 
                    "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{2}}, 
                    "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}]}, 
                    Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
                    "SummaryPanel"], DynamicModuleValues :> {}], "]"}], 
                    Success["ResourceSubmission", 
                    Association[
                    "MessageTemplate" -> 
                    "Your resource has been submitted for review. Your \
submission id is `SubmissionID`.", "MessageParameters" -> 
                    Association["SubmissionID" -> "9958"], "Name" -> 
                    "BitFlip", "ShortName" -> "BitFlip", "UUID" -> 
                    "b4c9c80a-7843-41f4-a205-56b3f2dd5b69", "SubmissionID" -> 
                    "9958", "ResourceType" -> "Function", "SubmissionDate" -> 
                    DateObject[{2019, 1, 24, 9, 43, 
                    20.907798`8.072883279229078}, "Instant", 
                    "Gregorian", -6.], "Status" -> "Copying"]], Selectable -> 
                    False, Editable -> False, SelectWithContents -> True]]}, 
                    "ClickToCopyTemplate"]}}, 
                    GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {Automatic, Automatic, Fit}, 
                    "Rows" -> {{Automatic}}}], "Grid"], FontColor -> 
                    GrayLevel[0.5], FontSize -> 12, StripOnInput -> False]}}, 
                  GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> 
                  False, GridBoxDividers -> {
                   "Columns" -> {{None}}, "RowsIndexed" -> {-1 -> GrayLevel[
                    Rational[239, 255]]}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {Automatic, Fit}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {1, {}, 1}, "Rows" -> {1, {}, 2}}], "Grid"], 
                ImageMargins -> 0]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False,
              GridBoxBackground -> {"Columns" -> {{Automatic}}}, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0.5}}}, 
             BaselinePosition -> {1, 1}]}, 
          Dynamic[Typeset`var$$], Alignment -> Automatic, ImageSize -> 
          Automatic, ImageMargins -> 0, BaseStyle -> {}, DefaultBaseStyle -> 
          "OpenerView", BaselinePosition -> Baseline], Deployed -> False, 
         StripOnInput -> False], 
        OpenerView[{
          Grid[{{
             
             Grid[{{"Your resource has been submitted for review.", ""}}, 
              Spacings -> 0.25], 
             Grid[{{"Submission ID:", 
                RawBoxes[
                 TemplateBox[{"\"9958\"", 
                   RawBoxes["\"9958\""]}, "ClickToCopyTemplate"]]}}], "", 
             Style[
             "Thu 24 Jan 2019 09:43:21", FontSlant -> Italic, FontColor -> 
              GrayLevel[0.5], FontSize -> 0.9 Inherited], 
             MouseAppearance[
              Button[
               MouseAppearance[
                Mouseover[
                 Graphics[{
                   GrayLevel[
                    Rational[64, 85]], 
                   
                   Polygon[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                   Polygon[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                  PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                  None], 
                 Graphics[{
                   GrayLevel[
                    Rational[128, 255]], 
                   
                   Polygon[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                   
                   Polygon[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                  PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                  None]], "LinkHand"], Symbol["System`ResourceFunction"]; 
               FunctionResource`DefinitionNotebook`Private`deleteMe[
                "0f8b0a5a-b443-4283-abd6-d31cff44f706"], Appearance -> None, 
               BoxID -> "0f8b0a5a-b443-4283-abd6-d31cff44f706"], 
              "LinkHand"]}}, ItemSize -> {{
              Scaled[0.35], 
              Scaled[0.35], Fit, Automatic^2}, Automatic}, 
           Alignment -> {{Left, Left, Center, Right, Right}, Center}], 
          Grid[{{"", 
             Style[
              Grid[{{"\[FilledVerySmallSquare]", "Submission result:", 
                 RawBoxes[
                  TemplateBox[{
                    TagBox[
                    InterpretationBox[
                    RowBox[{
                    TagBox["Success", "SummaryHead"], "[", 
                    
                    DynamicModuleBox[{
                    Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
                    TemplateBox[{
                    PaneSelectorBox[{False -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquarePlusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    FrameBox[
                    StyleBox["\"\[Checkmark]\"", 
                    Directive[
                    RGBColor[
                    0.3607843137254902, 0.596078431372549, 
                    0.3803921568627451], 25], StripOnInput -> False], 
                    ContentPadding -> False, FrameStyle -> None, 
                    FrameMargins -> {{0, 0}, {0, 0}}, StripOnInput -> False], 
                    GridBox[{{
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Message\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox[
                    "\"Your resource has been submitted for review. Your \
submission id is 9958.\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Name\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"BitFlip\"", "SummaryItem"]}]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}], True -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquareMinusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    FrameBox[
                    StyleBox["\"\[Checkmark]\"", 
                    Directive[
                    RGBColor[
                    0.3607843137254902, 0.596078431372549, 
                    0.3803921568627451], 25], StripOnInput -> False], 
                    ContentPadding -> False, FrameStyle -> None, 
                    FrameMargins -> {{0, 0}, {0, 0}}, StripOnInput -> False], 
                    GridBox[{{
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Message\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox[
                    "\"Your resource has been submitted for review. Your \
submission id is 9958.\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Name\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"BitFlip\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"ShortName\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"BitFlip\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"UUID\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox[
                    "\"b4c9c80a-7843-41f4-a205-56b3f2dd5b69\"", 
                    "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"SubmissionID\"", "\": \""}, "RowDefault"],
                     "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"9958\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"ResourceType\"", "\": \""}, "RowDefault"],
                     "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"Function\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    
                    TemplateBox[{"\"SubmissionDate\"", "\": \""}, 
                    "RowDefault"], "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    TemplateBox[{
                    RowBox[{"\"Thu 24 Jan 2019 09:43:20\"", 
                    StyleBox[
                    RowBox[{"\"GMT\"", "\[InvisibleSpace]", 
                    StyleBox[
                    RowBox[{"-", "6.`"}], NumberMarks -> False, StripOnInput -> 
                    False]}], FontColor -> GrayLevel[0.5]]}], 
                    RowBox[{"DateObject", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    
                    RowBox[{"2019", ",", "1", ",", "24", ",", "9", ",", "43", 
                    ",", "20.907798`8.072883279229078"}], "}"}], ",", 
                    "\"Instant\"", ",", "\"Gregorian\"", ",", 
                    RowBox[{"-", "6.`"}]}], "]"}]}, "DateObject", Editable -> 
                    False], "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Status\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"Copying\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Tag\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"ResourceSubmission\"", "SummaryItem"]}]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}]}, 
                    Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
                    "SummaryPanel"], DynamicModuleValues :> {}], "]"}], 
                    Success["ResourceSubmission", 
                    Association[
                    "MessageTemplate" -> 
                    "Your resource has been submitted for review. Your \
submission id is `SubmissionID`.", "MessageParameters" -> 
                    Association["SubmissionID" -> "9958"], "Name" -> 
                    "BitFlip", "ShortName" -> "BitFlip", "UUID" -> 
                    "b4c9c80a-7843-41f4-a205-56b3f2dd5b69", "SubmissionID" -> 
                    "9958", "ResourceType" -> "Function", "SubmissionDate" -> 
                    DateObject[{
                    2019, 1, 24, 9, 43, 20.907798`8.072883279229078}, 
                    "Instant", "Gregorian", -6.], "Status" -> "Copying"]], 
                    Selectable -> False, Editable -> False, 
                    SelectWithContents -> True], Short[#, 0.75]& ], 
                    RawBoxes[
                    InterpretationBox[
                    RowBox[{
                    TagBox["Success", "SummaryHead"], "[", 
                    
                    DynamicModuleBox[{
                    Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
                    TemplateBox[{
                    PaneSelectorBox[{False -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquarePlusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    FrameBox[
                    StyleBox["\"\[Checkmark]\"", 
                    Directive[
                    RGBColor[
                    0.3607843137254902, 0.596078431372549, 
                    0.3803921568627451], 25], StripOnInput -> False], 
                    ContentPadding -> False, FrameStyle -> None, 
                    FrameMargins -> {{0, 0}, {0, 0}}, StripOnInput -> False], 
                    GridBox[{{
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Message\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox[
                    "\"Your resource has been submitted for review. Your \
submission id is 9958.\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Name\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"BitFlip\"", "SummaryItem"]}]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}], True -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquareMinusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    FrameBox[
                    StyleBox["\"\[Checkmark]\"", 
                    Directive[
                    RGBColor[
                    0.3607843137254902, 0.596078431372549, 
                    0.3803921568627451], 25], StripOnInput -> False], 
                    ContentPadding -> False, FrameStyle -> None, 
                    FrameMargins -> {{0, 0}, {0, 0}}, StripOnInput -> False], 
                    GridBox[{{
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Message\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox[
                    "\"Your resource has been submitted for review. Your \
submission id is 9958.\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Name\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"BitFlip\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"ShortName\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"BitFlip\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"UUID\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox[
                    "\"b4c9c80a-7843-41f4-a205-56b3f2dd5b69\"", 
                    "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"SubmissionID\"", "\": \""}, "RowDefault"],
                     "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"9958\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"ResourceType\"", "\": \""}, "RowDefault"],
                     "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"Function\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    
                    TemplateBox[{"\"SubmissionDate\"", "\": \""}, 
                    "RowDefault"], "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    TemplateBox[{
                    RowBox[{"\"Thu 24 Jan 2019 09:43:20\"", 
                    StyleBox[
                    RowBox[{"\"GMT\"", "\[InvisibleSpace]", 
                    StyleBox[
                    RowBox[{"-", "6.`"}], NumberMarks -> False, StripOnInput -> 
                    False]}], FontColor -> GrayLevel[0.5]]}], 
                    RowBox[{"DateObject", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    
                    RowBox[{"2019", ",", "1", ",", "24", ",", "9", ",", "43", 
                    ",", "20.907798`8.072883279229078"}], "}"}], ",", 
                    "\"Instant\"", ",", "\"Gregorian\"", ",", 
                    RowBox[{"-", "6.`"}]}], "]"}]}, "DateObject", Editable -> 
                    False], "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Status\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"Copying\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Tag\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"ResourceSubmission\"", "SummaryItem"]}]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}]}, 
                    Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
                    "SummaryPanel"], DynamicModuleValues :> {}], "]"}], 
                    Success["ResourceSubmission", 
                    Association[
                    "MessageTemplate" -> 
                    "Your resource has been submitted for review. Your \
submission id is `SubmissionID`.", "MessageParameters" -> 
                    Association["SubmissionID" -> "9958"], "Name" -> 
                    "BitFlip", "ShortName" -> "BitFlip", "UUID" -> 
                    "b4c9c80a-7843-41f4-a205-56b3f2dd5b69", "SubmissionID" -> 
                    "9958", "ResourceType" -> "Function", "SubmissionDate" -> 
                    DateObject[{
                    2019, 1, 24, 9, 43, 20.907798`8.072883279229078}, 
                    "Instant", "Gregorian", -6.], "Status" -> "Copying"]], 
                    Selectable -> False, Editable -> False, 
                    SelectWithContents -> True]]}, "ClickToCopyTemplate"]]}}, 
               Alignment -> Left, 
               ItemSize -> {{Automatic, Automatic, Fit}, Automatic}], 
              FontColor -> GrayLevel[0.5], FontSize -> 12]}}, 
           ItemSize -> {{Automatic, Fit}, Automatic}, Alignment -> Left, 
           Dividers -> {None, {-1 -> GrayLevel[
                Rational[239, 255]]}}, Spacings -> {{1, {}, 1}, {1, {}, 2}}]},
          False]], DynamicModuleValues -> Automatic], Setting[#, {0}]& ], 
     "Text", FontSize -> 12, FontColor -> GrayLevel[0.25], StripOnInput -> 
     False]], "StripeCell", CellFrameMargins -> {{25, 5}, {2, 2}}, 
   CellFrame -> {{0, 0}, {1, 0}}, CellFrameColor -> GrayLevel[0.75]], 
  Cell[
   BoxData[
    StyleBox[
     TagBox[
      DynamicModuleBox[{Typeset`var$$ = False}, 
       InterpretationBox[
        StyleBox[
         PaneSelectorBox[{False -> GridBox[{{
               OpenerBox[
                Dynamic[Typeset`var$$], Appearance -> Automatic, Enabled -> 
                Automatic, AutoAction -> False, ContinuousAction -> False], 
               TagBox[
                GridBox[{{
                   TagBox[
                    GridBox[{{"\"Published to the cloud\"", 
                    
                    TemplateBox[{
                    "\"\[RightGuillemet]\"", 
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"}, "HyperlinkURL"]}}, AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], 
                   TagBox[
                    GridBox[{{"\"ResourceFunction:\"", 
                    TemplateBox[{
                    InterpretationBox[
                    FrameBox[
                    TagBox[
                    GridBox[{{
                    StyleBox[
                    "\"\[EmptyCircle]\"", FontSize -> 1.2 Inherited, 
                    ShowStringCharacters -> False, FontColor -> 
                    RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], 
                    FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], Bold, Plain]], StripOnInput -> 
                    False], 
                    StyleBox[
                    "\"BitFlip\"", FontColor -> 
                    RGBColor[0.2784313725490196, 0.2784313725490196, 
                    0.2784313725490196], ShowAutoStyles -> False, 
                    ShowStringCharacters -> False, FontFamily -> "Roboto", 
                    FontSize -> 0.9 Inherited, FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], "DemiBold", Plain]], 
                    StripOnInput -> False]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], 
                    Background -> 
                    RGBColor[
                    0.9686274509803922, 0.9686274509803922, 
                    0.9686274509803922], ContentPadding -> False, 
                    FrameMargins -> {{3, 4}, {2, 2}}, FrameStyle -> Directive[
                    Thickness[1], 
                    RGBColor[
                    0.8627450980392157, 0.8627450980392157, 
                    0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> 
                    False, Selectable -> False], 
                    ResourceFunction[
                    ResourceObject[
                    Association[
                    "Name" -> "BitFlip", "UUID" -> 
                    "b6285e6d-0422-49d4-ac33-8cfc52caeceb", "ResourceType" -> 
                    "Function", "Description" -> 
                    "Flip an individual bit in an integer (0 to 1, and 1 to \
0)", "Version" -> None, "ContributorInformation" -> 
                    Association["ContributedBy" -> "Arnoud Buzing"], 
                    "Documentation" -> Association["Usage" -> {
                    Association["Usage" -> BoxData[
                    RowBox[{
                    StyleBox[
                    RowBox[{
                    StyleBox["ResourceFunction", "ResourceFunctionSymbol"], 
                    "[", 
                    StyleBox["\"BitFlip\"", "ResourceFunctionName"], "]"}], 
                    "ResourceFunctionHandle"], "[", 
                    StyleBox[
                    RowBox[{"n", ",", "p"}], FontSlant -> "Italic"], "]"}]], 
                    "Description" -> "flips the pth bit of integer n."]}, 
                    "Notes" -> {
                    Cell[
                    TextData[{"The lowest bit of integer ", 
                    StyleBox["n", FontSlant -> "Italic"], 
                    " (e.g. signifying ", 
                    Cell[
                    BoxData[
                    FormBox[
                    SuperscriptBox["2", "0"], TraditionalForm]], FormatType -> 
                    "TraditionalForm"], ") is flipped with p=0."}], "Notes", 
                    CellEventActions -> {
                    Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
                    SelectedNotebook[], After, Cell]; NotebookFind[
                    SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> 
                    True, WrapAround -> True], Blank[NotebookSelection] :> 
                    SelectionMove[
                    SelectedNotebook[], All, CellContents, AutoScroll -> 
                    True]], PassEventsDown -> False, PassEventsUp -> False}, 
                    CellChangeTimes -> {{3.7573329664257574`*^9, 
                    3.757333051385191*^9}}, CellTags -> "TabNext", CellID -> 
                    521904482]}], "ExampleNotebook" -> NotebookObject[
                    FrontEndObject[
                    LinkObject["yhzwf_shm", 3, 1]], 105], "FunctionLocation" -> 
                    CloudObject[
                    "https://www.wolframcloud.com/objects/arnoudb/Resources/\
b62/b6285e6d-0422-49d4-ac33-8cfc52caeceb/download/DefinitionData"], 
                    "ShortName" -> "BitFlip", "SymbolName" -> 
                    "FunctionRepository`$b6285e6d042249d4ac338cfc52caeceb`\
BitFlip", "ResourceLocations" -> {
                    CloudObject[
                    "https://www.wolframcloud.com/objects/arnoudb/Resources/\
b62/b6285e6d-0422-49d4-ac33-8cfc52caeceb"]}, "ExampleNotebookData" -> 
                    Automatic]]], Selectable -> False], 
                    RawBoxes[
                    RowBox[{"ResourceFunction", "[", 
                    InterpretationBox[
                    RowBox[{"CloudObject", "[", 
                    
                    TemplateBox[{
                    "\"https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip\"", 
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"}, "HyperlinkURL"], "]"}], 
                    CloudObject[
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"], SelectWithContents -> True], "]"}]]}, 
                    "ClickToCopyTemplate"]}}, AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
                    "Grid"], "\"\"", 
                   StyleBox[
                   "\"Thu 24 Jan 2019 09:46:22\"", FontSlant -> Italic, 
                    FontColor -> GrayLevel[0.5], FontSize -> 0.9 Inherited, 
                    StripOnInput -> False], 
                   TagBox[
                    ButtonBox[
                    TagBox[
                    PaneSelectorBox[{False -> GraphicsBox[{
                    GrayLevel[
                    NCache[
                    Rational[64, 85], 0.7529411764705882]], 
                    
                    PolygonBox[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                    
                    PolygonBox[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                    PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                    None], True -> GraphicsBox[{
                    GrayLevel[
                    NCache[
                    Rational[128, 255], 0.5019607843137255]], 
                    
                    PolygonBox[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                    
                    PolygonBox[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                    PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                    None]}, 
                    Dynamic[
                    CurrentValue["MouseOver"]], ImageSize -> Automatic, 
                    FrameMargins -> 0], 
                    MouseAppearanceTag["LinkHand"]], 
                    ButtonFunction :> (Symbol["System`ResourceFunction"]; 
                    FunctionResource`DefinitionNotebook`Private`deleteMe[
                    "193949f4-67bc-4e9d-9b44-c99fa4e89922"]), Appearance -> 
                    None, BoxID -> "193949f4-67bc-4e9d-9b44-c99fa4e89922", 
                    Evaluator -> Automatic, Method -> "Preemptive"], 
                    MouseAppearanceTag["LinkHand"]]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Left, Left, Center, Right, Right}, 
                   "Rows" -> {{Center}}}, AutoDelete -> False, 
                 GridBoxItemSize -> {"Columns" -> {
                    Scaled[0.35], 
                    Scaled[0.35], Fit, Automatic^2}, 
                   "Rows" -> {{Automatic}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False,
              GridBoxBackground -> {"Columns" -> {{Automatic}}}, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0.5}}}, 
             BaselinePosition -> {1, 1}], True -> GridBox[{{
               OpenerBox[
                Dynamic[Typeset`var$$], Appearance -> Automatic, Enabled -> 
                Automatic, AutoAction -> False, ContinuousAction -> False], 
               TagBox[
                GridBox[{{
                   TagBox[
                    GridBox[{{"\"Published to the cloud\"", 
                    
                    TemplateBox[{
                    "\"\[RightGuillemet]\"", 
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"}, "HyperlinkURL"]}}, AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], 
                   TagBox[
                    GridBox[{{"\"ResourceFunction:\"", 
                    TemplateBox[{
                    InterpretationBox[
                    FrameBox[
                    TagBox[
                    GridBox[{{
                    StyleBox[
                    "\"\[EmptyCircle]\"", FontSize -> 1.2 Inherited, 
                    ShowStringCharacters -> False, FontColor -> 
                    RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], 
                    FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], Bold, Plain]], StripOnInput -> 
                    False], 
                    StyleBox[
                    "\"BitFlip\"", FontColor -> 
                    RGBColor[0.2784313725490196, 0.2784313725490196, 
                    0.2784313725490196], ShowAutoStyles -> False, 
                    ShowStringCharacters -> False, FontFamily -> "Roboto", 
                    FontSize -> 0.9 Inherited, FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], "DemiBold", Plain]], 
                    StripOnInput -> False]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], 
                    Background -> 
                    RGBColor[
                    0.9686274509803922, 0.9686274509803922, 
                    0.9686274509803922], ContentPadding -> False, 
                    FrameMargins -> {{3, 4}, {2, 2}}, FrameStyle -> Directive[
                    Thickness[1], 
                    RGBColor[
                    0.8627450980392157, 0.8627450980392157, 
                    0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> 
                    False, Selectable -> False], 
                    ResourceFunction[
                    ResourceObject[
                    Association[
                    "Name" -> "BitFlip", "UUID" -> 
                    "b6285e6d-0422-49d4-ac33-8cfc52caeceb", "ResourceType" -> 
                    "Function", "Description" -> 
                    "Flip an individual bit in an integer (0 to 1, and 1 to \
0)", "Version" -> None, "ContributorInformation" -> 
                    Association["ContributedBy" -> "Arnoud Buzing"], 
                    "Documentation" -> Association["Usage" -> {
                    Association["Usage" -> BoxData[
                    RowBox[{
                    StyleBox[
                    RowBox[{
                    StyleBox["ResourceFunction", "ResourceFunctionSymbol"], 
                    "[", 
                    StyleBox["\"BitFlip\"", "ResourceFunctionName"], "]"}], 
                    "ResourceFunctionHandle"], "[", 
                    StyleBox[
                    RowBox[{"n", ",", "p"}], FontSlant -> "Italic"], "]"}]], 
                    "Description" -> "flips the pth bit of integer n."]}, 
                    "Notes" -> {
                    Cell[
                    TextData[{"The lowest bit of integer ", 
                    StyleBox["n", FontSlant -> "Italic"], 
                    " (e.g. signifying ", 
                    Cell[
                    BoxData[
                    FormBox[
                    SuperscriptBox["2", "0"], TraditionalForm]], FormatType -> 
                    "TraditionalForm"], ") is flipped with p=0."}], "Notes", 
                    CellEventActions -> {
                    Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
                    SelectedNotebook[], After, Cell]; NotebookFind[
                    SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> 
                    True, WrapAround -> True], Blank[NotebookSelection] :> 
                    SelectionMove[
                    SelectedNotebook[], All, CellContents, AutoScroll -> 
                    True]], PassEventsDown -> False, PassEventsUp -> False}, 
                    CellChangeTimes -> {{3.7573329664257574`*^9, 
                    3.757333051385191*^9}}, CellTags -> "TabNext", CellID -> 
                    521904482]}], "ExampleNotebook" -> NotebookObject[
                    FrontEndObject[
                    LinkObject["yhzwf_shm", 3, 1]], 105], "FunctionLocation" -> 
                    CloudObject[
                    "https://www.wolframcloud.com/objects/arnoudb/Resources/\
b62/b6285e6d-0422-49d4-ac33-8cfc52caeceb/download/DefinitionData"], 
                    "ShortName" -> "BitFlip", "SymbolName" -> 
                    "FunctionRepository`$b6285e6d042249d4ac338cfc52caeceb`\
BitFlip", "ResourceLocations" -> {
                    CloudObject[
                    "https://www.wolframcloud.com/objects/arnoudb/Resources/\
b62/b6285e6d-0422-49d4-ac33-8cfc52caeceb"]}, "ExampleNotebookData" -> 
                    Automatic]]], Selectable -> False], 
                    RawBoxes[
                    RowBox[{"ResourceFunction", "[", 
                    InterpretationBox[
                    RowBox[{"CloudObject", "[", 
                    
                    TemplateBox[{
                    "\"https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip\"", 
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"}, "HyperlinkURL"], "]"}], 
                    CloudObject[
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"], SelectWithContents -> True], "]"}]]}, 
                    "ClickToCopyTemplate"]}}, AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
                    "Grid"], "\"\"", 
                   StyleBox[
                   "\"Thu 24 Jan 2019 09:46:22\"", FontSlant -> Italic, 
                    FontColor -> GrayLevel[0.5], FontSize -> 0.9 Inherited, 
                    StripOnInput -> False], 
                   TagBox[
                    ButtonBox[
                    TagBox[
                    PaneSelectorBox[{False -> GraphicsBox[{
                    GrayLevel[
                    NCache[
                    Rational[64, 85], 0.7529411764705882]], 
                    
                    PolygonBox[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                    
                    PolygonBox[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                    PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                    None], True -> GraphicsBox[{
                    GrayLevel[
                    NCache[
                    Rational[128, 255], 0.5019607843137255]], 
                    
                    PolygonBox[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                    
                    PolygonBox[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                    PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                    None]}, 
                    Dynamic[
                    CurrentValue["MouseOver"]], ImageSize -> Automatic, 
                    FrameMargins -> 0], 
                    MouseAppearanceTag["LinkHand"]], 
                    ButtonFunction :> (Symbol["System`ResourceFunction"]; 
                    FunctionResource`DefinitionNotebook`Private`deleteMe[
                    "193949f4-67bc-4e9d-9b44-c99fa4e89922"]), Appearance -> 
                    None, BoxID -> "193949f4-67bc-4e9d-9b44-c99fa4e89922", 
                    Evaluator -> Automatic, Method -> "Preemptive"], 
                    MouseAppearanceTag["LinkHand"]]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Left, Left, Center, Right, Right}, 
                   "Rows" -> {{Center}}}, AutoDelete -> False, 
                 GridBoxItemSize -> {"Columns" -> {
                    Scaled[0.35], 
                    Scaled[0.35], Fit, Automatic^2}, 
                   "Rows" -> {{Automatic}}}], "Grid"]}, {"", 
               PaneBox[
                TagBox[
                 GridBox[{{"\"\"", 
                    StyleBox[
                    TagBox[
                    
                    GridBox[{{
                    "\"\[FilledVerySmallSquare]\"", "\"Cloud object:\"", 
                    TemplateBox[{
                    RowBox[{"CloudObject", "[", 
                    
                    TemplateBox[{
                    "\"https://\[Ellipsis]/arnoudb/DeployedResources/Function/\
BitFlip\"", 
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"}, "HyperlinkURL"], "]"}], 
                    RawBoxes[
                    InterpretationBox[
                    RowBox[{"CloudObject", "[", 
                    
                    TemplateBox[{
                    "\"https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip\"", 
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"}, "HyperlinkURL"], "]"}], 
                    CloudObject[
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"], SelectWithContents -> True]]}, 
                    "ClickToCopyTemplate"]}, {
                    "\"\[FilledVerySmallSquare]\"", "\"Visit web page:\"", 
                    TemplateBox[{
                    TagBox[
                    "\"https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip\"", Short[#, 0.75]& ], 
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"}, "HyperlinkURL"]}, {
                    "\"\[FilledVerySmallSquare]\"", "\"Resource object:\"", 
                    TemplateBox[{
                    RowBox[{"ResourceObject", "[", 
                    InterpretationBox[
                    FrameBox[
                    TagBox[
                    GridBox[{{
                    StyleBox[
                    "\"\[EmptyCircle]\"", FontSize -> 1.2 Inherited, 
                    ShowStringCharacters -> False, FontColor -> 
                    RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], 
                    FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], Bold, Plain]], StripOnInput -> 
                    False], 
                    StyleBox[
                    "\"BitFlip\"", FontColor -> 
                    RGBColor[0.2784313725490196, 0.2784313725490196, 
                    0.2784313725490196], ShowAutoStyles -> False, 
                    ShowStringCharacters -> False, FontFamily -> "Roboto", 
                    FontSize -> 0.9 Inherited, FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], "DemiBold", Plain]], 
                    StripOnInput -> False]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], 
                    Background -> 
                    RGBColor[0.9686274509803922, 0.9686274509803922, 
                    0.9686274509803922], ContentPadding -> False, 
                    FrameMargins -> {{3, 4}, {2, 2}}, FrameStyle -> Directive[
                    Thickness[1], 
                    RGBColor[
                    0.8627450980392157, 0.8627450980392157, 
                    0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> 
                    False, Selectable -> False], 
                    ResourceFunction[
                    ResourceObject[
                    Association[
                    "Name" -> "BitFlip", "UUID" -> 
                    "b6285e6d-0422-49d4-ac33-8cfc52caeceb", "ResourceType" -> 
                    "Function", "Version" -> None, "Description" -> 
                    "Flip an individual bit in an integer (0 to 1, and 1 to \
0)", "SymbolName" -> 
                    "FunctionRepository`$b6285e6d042249d4ac338cfc52caeceb`\
BitFlip", "FunctionLocation" -> None, "ShortName" -> "BitFlip"]]], Selectable -> 
                    False], "]"}], 
                    RawBoxes[
                    InterpretationBox[
                    RowBox[{
                    TagBox["ResourceObject", "SummaryHead"], "[", 
                    
                    DynamicModuleBox[{
                    Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
                    TemplateBox[{
                    PaneSelectorBox[{False -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquarePlusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 3.5 (CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification])}]], 
                    GraphicsBox[
                    RasterBox[CompressedData["
1:eJztmzFvEzEUxyNg6JiNtUysmRADQ7qA2KJWrEitCBUMAaVFiO0GRoZILIyV
+gGQGJkqBmZgR06FKoRQRRAghBA6/JI7al585+fzc85X50n/Km3vzu8X28/2
s+/C1r3122dardbOivyxvvlwbTjcfLTRlr/cGOzc2R70b10f7Pa3+8PLW2fl
H69kOieVpqkXiWsrHan7UntSB1KpQQfZtXBPx5dfzIy9zOcJgc+kSfasXt1c
iLEtlUiNGRiLNM7KaNfMmjDVpU2dJzVwdj3XJ6W+uwtqu6MaObFGvtq4fO6q
1JsAGLHAp1Vm1o5YbD+1FfjGMoY1gJWNuUGszsxi1l+bxKoyW/VnMYvDIcYm
qsB3ctwWYY05VTUisnYD8JVLXQJvnfMmbo0NrEkAPnIrKYlRTYzHJgHTXOw6
pXVbWMeC0G8/Prhq1OHG+bn7ju5eKrye4i8806Y8jcaItUcpl2I6hp/vXhVe
TykXnmlTXoH+5UnELG9ivOfL/uNC33+8fjH9/4ebF428f75Ppn+D6ynlwjO/
vdzXlm3Bu6fwkuMUtB9sv96/Lb1H9fP3p0Onvvj5Sb8q7yQ9WRNYlYnt6/On
ZF747MKLv28L3lSc5EydeE3tUuU1fTe25Vvy5vnhhfFS+6wnXmou3Atv2ThT
Nm458FqzcvKWjTPYmHid29OSd8m75OUrf8nLIxg7wFcQtnwuDDp+tlvKC/Ps
JvDCnB3m+RTDazTO+ST44chLHoPh2ab61a2RVF74znRrKKpw+RXmG9bzSVzP
Nv03N1gnUesa8gVwvc4qzCet1wvY/yq8uVHbVZFVWC9YrwdhjWPDG5Cme0vC
Mi+JY0ZDeKfr/dQin6MKxp3c8jUtxGUYb8A4xh1mqfkcUr4OC3JKucFnHMcg
9xIAZ67/zjWJivsouC87xBKfmttXEQ75duDK2zFu44FIl29n2U9xmUt4knY/
xbWOA5Z2v8y1Hweq0v3QNML97jSy8wxK7IrmvErGHM15JIU5mvNmDWSO6Qwl
GyvqzyHGMPbzwChuhzRWeTvvjbijOM+v4Y7ifQ1NG4/ifRwN+6l/36qEPcj3
6f4CgLLCWA==
                    "], {{0, 0}, {60, 60}}, {0, 255}, ColorFunction -> 
                    RGBColor], AspectRatio -> 1, Axes -> False, Background -> 
                    None, Frame -> None, FrameTicks -> None, ImageSize -> 
                    Dynamic[{Automatic, 3.5 (CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification])}, 
                    ImageSizeCache -> {45., {0., 9.}}]], 
                    GridBox[{{
                    RowBox[{
                    TagBox["\"Name: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"BitFlip\"", "SummaryItem"]}], 
                    TagBox["\"\"", "SummaryItem"]}, {
                    RowBox[{
                    TagBox["\"Type: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"Function\"", "SummaryItem"]}], 
                    "\[SpanFromLeft]"}, {
                    RowBox[{
                    TagBox["\"Description: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    "\"Flip an individual bit in an integer (0 to 1, and 1 to \
0)\"", "SummaryItem"]}], "\[SpanFromLeft]"}}, 
                    GridBoxAlignment -> {"Columns" -> {{Left}}, 
                    "Rows" -> {{Automatic}}}, AutoDelete -> False, 
                    GridBoxItemSize -> {"Columns" -> {{Automatic}}, 
                    "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{2}}, 
                    "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}], True -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquareMinusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 3.5 (CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification])}]], 
                    GraphicsBox[
                    RasterBox[CompressedData["
1:eJztmzFvEzEUxyNg6JiNtUysmRADQ7qA2KJWrEitCBUMAaVFiO0GRoZILIyV
+gGQGJkqBmZgR06FKoRQRRAghBA6/JI7al585+fzc85X50n/Km3vzu8X28/2
s+/C1r3122dardbOivyxvvlwbTjcfLTRlr/cGOzc2R70b10f7Pa3+8PLW2fl
H69kOieVpqkXiWsrHan7UntSB1KpQQfZtXBPx5dfzIy9zOcJgc+kSfasXt1c
iLEtlUiNGRiLNM7KaNfMmjDVpU2dJzVwdj3XJ6W+uwtqu6MaObFGvtq4fO6q
1JsAGLHAp1Vm1o5YbD+1FfjGMoY1gJWNuUGszsxi1l+bxKoyW/VnMYvDIcYm
qsB3ctwWYY05VTUisnYD8JVLXQJvnfMmbo0NrEkAPnIrKYlRTYzHJgHTXOw6
pXVbWMeC0G8/Prhq1OHG+bn7ju5eKrye4i8806Y8jcaItUcpl2I6hp/vXhVe
TykXnmlTXoH+5UnELG9ivOfL/uNC33+8fjH9/4ebF428f75Ppn+D6ynlwjO/
vdzXlm3Bu6fwkuMUtB9sv96/Lb1H9fP3p0Onvvj5Sb8q7yQ9WRNYlYnt6/On
ZF747MKLv28L3lSc5EydeE3tUuU1fTe25Vvy5vnhhfFS+6wnXmou3Atv2ThT
Nm458FqzcvKWjTPYmHid29OSd8m75OUrf8nLIxg7wFcQtnwuDDp+tlvKC/Ps
JvDCnB3m+RTDazTO+ST44chLHoPh2ab61a2RVF74znRrKKpw+RXmG9bzSVzP
Nv03N1gnUesa8gVwvc4qzCet1wvY/yq8uVHbVZFVWC9YrwdhjWPDG5Cme0vC
Mi+JY0ZDeKfr/dQin6MKxp3c8jUtxGUYb8A4xh1mqfkcUr4OC3JKucFnHMcg
9xIAZ67/zjWJivsouC87xBKfmttXEQ75duDK2zFu44FIl29n2U9xmUt4knY/
xbWOA5Z2v8y1Hweq0v3QNML97jSy8wxK7IrmvErGHM15JIU5mvNmDWSO6Qwl
GyvqzyHGMPbzwChuhzRWeTvvjbijOM+v4Y7ifQ1NG4/ifRwN+6l/36qEPcj3
6f4CgLLCWA==
                    "], {{0, 0}, {60, 60}}, {0, 255}, ColorFunction -> 
                    RGBColor], AspectRatio -> 1, Axes -> False, Background -> 
                    None, Frame -> None, FrameTicks -> None, ImageSize -> 
                    Dynamic[{Automatic, 3.5 (CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification])}, 
                    ImageSizeCache -> {45., {0., 9.}}]], 
                    GridBox[{{
                    RowBox[{
                    TagBox["\"Name: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"BitFlip\"", "SummaryItem"]}], 
                    TagBox["\"\"", "SummaryItem"]}, {
                    RowBox[{
                    TagBox["\"Type: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"Function\"", "SummaryItem"]}], 
                    "\[SpanFromLeft]"}, {
                    RowBox[{
                    TagBox["\"Description: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    "\"Flip an individual bit in an integer (0 to 1, and 1 to \
0)\"", "SummaryItem"]}], "\[SpanFromLeft]"}, {
                    RowBox[{
                    TagBox["\"UUID: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    "\"b6285e6d-0422-49d4-ac33-8cfc52caeceb\"", 
                    "SummaryItem"]}], ""}, {
                    RowBox[{
                    TagBox["\"Version: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["None", "SummaryItem"]}], ""}}, 
                    GridBoxAlignment -> {"Columns" -> {{Left}}, 
                    "Rows" -> {{Automatic}}}, AutoDelete -> False, 
                    GridBoxItemSize -> {"Columns" -> {{Automatic}}, 
                    "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{2}}, 
                    "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}]}, 
                    Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
                    "SummaryPanel"], DynamicModuleValues :> {}], "]"}], 
                    ResourceObject[
                    Association[
                    "Name" -> "BitFlip", "UUID" -> 
                    "b6285e6d-0422-49d4-ac33-8cfc52caeceb", "ResourceType" -> 
                    "Function", "Version" -> None, "Description" -> 
                    "Flip an individual bit in an integer (0 to 1, and 1 to \
0)", "SymbolName" -> 
                    "FunctionRepository`$b6285e6d042249d4ac338cfc52caeceb`\
BitFlip", "FunctionLocation" -> None, "ShortName" -> "BitFlip"]], Selectable -> 
                    False, Editable -> False, SelectWithContents -> True]]}, 
                    "ClickToCopyTemplate"]}}, 
                    GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {Automatic, Automatic, Fit}, 
                    "Rows" -> {{Automatic}}}], "Grid"], FontColor -> 
                    GrayLevel[0.5], FontSize -> 12, StripOnInput -> False]}}, 
                  GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> 
                  False, GridBoxDividers -> {
                   "Columns" -> {{None}}, "RowsIndexed" -> {-1 -> GrayLevel[
                    Rational[239, 255]]}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {Automatic, Fit}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {1, {}, 1}, "Rows" -> {1, {}, 2}}], "Grid"], 
                ImageMargins -> 0]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False,
              GridBoxBackground -> {"Columns" -> {{Automatic}}}, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0.5}}}, 
             BaselinePosition -> {1, 1}]}, 
          Dynamic[Typeset`var$$], Alignment -> Automatic, ImageSize -> 
          Automatic, ImageMargins -> 0, BaseStyle -> {}, DefaultBaseStyle -> 
          "OpenerView", BaselinePosition -> Baseline], Deployed -> False, 
         StripOnInput -> False], 
        OpenerView[{
          Grid[{{
             Grid[{{"Published to the cloud", 
                Hyperlink[
                "\[RightGuillemet]", 
                 "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"]}}, Spacings -> 0.25], 
             Grid[{{"ResourceFunction:", 
                RawBoxes[
                 TemplateBox[{
                   InterpretationBox[
                    FrameBox[
                    TagBox[
                    GridBox[{{
                    StyleBox[
                    "\"\[EmptyCircle]\"", FontSize -> 1.2 Inherited, 
                    ShowStringCharacters -> False, FontColor -> 
                    RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], 
                    FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], Bold, Plain]], StripOnInput -> 
                    False], 
                    StyleBox[
                    "\"BitFlip\"", FontColor -> 
                    RGBColor[
                    0.2784313725490196, 0.2784313725490196, 
                    0.2784313725490196], ShowAutoStyles -> False, 
                    ShowStringCharacters -> False, FontFamily -> "Roboto", 
                    FontSize -> 0.9 Inherited, FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], "DemiBold", Plain]], 
                    StripOnInput -> False]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], 
                    Background -> 
                    RGBColor[
                    0.9686274509803922, 0.9686274509803922, 
                    0.9686274509803922], ContentPadding -> False, 
                    FrameMargins -> {{3, 4}, {2, 2}}, FrameStyle -> Directive[
                    Thickness[1], 
                    RGBColor[
                    0.8627450980392157, 0.8627450980392157, 
                    0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> 
                    False, Selectable -> False], 
                    ResourceFunction[
                    ResourceObject[
                    Association[
                    "Name" -> "BitFlip", "UUID" -> 
                    "b6285e6d-0422-49d4-ac33-8cfc52caeceb", "ResourceType" -> 
                    "Function", "Description" -> 
                    "Flip an individual bit in an integer (0 to 1, and 1 to \
0)", "Version" -> None, "ContributorInformation" -> 
                    Association["ContributedBy" -> "Arnoud Buzing"], 
                    "Documentation" -> Association["Usage" -> {
                    Association["Usage" -> BoxData[
                    RowBox[{
                    StyleBox[
                    RowBox[{
                    StyleBox["ResourceFunction", "ResourceFunctionSymbol"], 
                    "[", 
                    StyleBox["\"BitFlip\"", "ResourceFunctionName"], "]"}], 
                    "ResourceFunctionHandle"], "[", 
                    StyleBox[
                    RowBox[{"n", ",", "p"}], FontSlant -> "Italic"], "]"}]], 
                    "Description" -> "flips the pth bit of integer n."]}, 
                    "Notes" -> {
                    Cell[
                    TextData[{"The lowest bit of integer ", 
                    StyleBox["n", FontSlant -> "Italic"], 
                    " (e.g. signifying ", 
                    Cell[
                    BoxData[
                    FormBox[
                    SuperscriptBox["2", "0"], TraditionalForm]], FormatType -> 
                    "TraditionalForm"], ") is flipped with p=0."}], "Notes", 
                    CellEventActions -> {
                    Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
                    SelectedNotebook[], After, Cell]; NotebookFind[
                    SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> 
                    True, WrapAround -> True], Blank[NotebookSelection] :> 
                    SelectionMove[
                    SelectedNotebook[], All, CellContents, AutoScroll -> 
                    True]], PassEventsDown -> False, PassEventsUp -> False}, 
                    CellChangeTimes -> {{3.7573329664257574`*^9, 
                    3.757333051385191*^9}}, CellTags -> "TabNext", CellID -> 
                    521904482]}], "ExampleNotebook" -> NotebookObject[
                    FrontEndObject[
                    LinkObject["yhzwf_shm", 3, 1]], 105], "FunctionLocation" -> 
                    CloudObject[
                    "https://www.wolframcloud.com/objects/arnoudb/Resources/\
b62/b6285e6d-0422-49d4-ac33-8cfc52caeceb/download/DefinitionData"], 
                    "ShortName" -> "BitFlip", "SymbolName" -> 
                    "FunctionRepository`$b6285e6d042249d4ac338cfc52caeceb`\
BitFlip", "ResourceLocations" -> {
                    CloudObject[
                    "https://www.wolframcloud.com/objects/arnoudb/Resources/\
b62/b6285e6d-0422-49d4-ac33-8cfc52caeceb"]}, "ExampleNotebookData" -> 
                    Automatic]]], Selectable -> False], 
                   RawBoxes[
                    RowBox[{"ResourceFunction", "[", 
                    InterpretationBox[
                    RowBox[{"CloudObject", "[", 
                    
                    TemplateBox[{
                    "\"https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip\"", 
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"}, "HyperlinkURL"], "]"}], 
                    CloudObject[
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"], SelectWithContents -> True], "]"}]]}, 
                  "ClickToCopyTemplate"]]}}], "", 
             Style[
             "Thu 24 Jan 2019 09:46:22", FontSlant -> Italic, FontColor -> 
              GrayLevel[0.5], FontSize -> 0.9 Inherited], 
             MouseAppearance[
              Button[
               MouseAppearance[
                Mouseover[
                 Graphics[{
                   GrayLevel[
                    Rational[64, 85]], 
                   
                   Polygon[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                   
                   Polygon[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                  PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                  None], 
                 Graphics[{
                   GrayLevel[
                    Rational[128, 255]], 
                   
                   Polygon[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                   
                   Polygon[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                  PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                  None]], "LinkHand"], Symbol["System`ResourceFunction"]; 
               FunctionResource`DefinitionNotebook`Private`deleteMe[
                "193949f4-67bc-4e9d-9b44-c99fa4e89922"], Appearance -> None, 
               BoxID -> "193949f4-67bc-4e9d-9b44-c99fa4e89922"], 
              "LinkHand"]}}, ItemSize -> {{
              Scaled[0.35], 
              Scaled[0.35], Fit, Automatic^2}, Automatic}, 
           Alignment -> {{Left, Left, Center, Right, Right}, Center}], 
          Grid[{{"", 
             Style[
              Grid[{{"\[FilledVerySmallSquare]", "Cloud object:", 
                 RawBoxes[
                  TemplateBox[{
                    RowBox[{"CloudObject", "[", 
                    
                    TemplateBox[{
                    "\"https://\[Ellipsis]/arnoudb/DeployedResources/Function/\
BitFlip\"", 
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"}, "HyperlinkURL"], "]"}], 
                    RawBoxes[
                    InterpretationBox[
                    RowBox[{"CloudObject", "[", 
                    
                    TemplateBox[{
                    "\"https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip\"", 
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"}, "HyperlinkURL"], "]"}], 
                    CloudObject[
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"], SelectWithContents -> True]]}, 
                   "ClickToCopyTemplate"]]}, {
                "\[FilledVerySmallSquare]", "Visit web page:", 
                 Hyperlink[
                  RawBoxes[
                   TagBox[
                   "\"https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip\"", Short[#, 0.75]& ]], 
                  "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"]}, {
                "\[FilledVerySmallSquare]", "Resource object:", 
                 RawBoxes[
                  TemplateBox[{
                    RowBox[{"ResourceObject", "[", 
                    InterpretationBox[
                    FrameBox[
                    TagBox[
                    GridBox[{{
                    StyleBox[
                    "\"\[EmptyCircle]\"", FontSize -> 1.2 Inherited, 
                    ShowStringCharacters -> False, FontColor -> 
                    RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], 
                    FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], Bold, Plain]], StripOnInput -> 
                    False], 
                    StyleBox[
                    "\"BitFlip\"", FontColor -> 
                    RGBColor[0.2784313725490196, 0.2784313725490196, 
                    0.2784313725490196], ShowAutoStyles -> False, 
                    ShowStringCharacters -> False, FontFamily -> "Roboto", 
                    FontSize -> 0.9 Inherited, FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], "DemiBold", Plain]], 
                    StripOnInput -> False]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], 
                    Background -> 
                    RGBColor[
                    0.9686274509803922, 0.9686274509803922, 
                    0.9686274509803922], ContentPadding -> False, 
                    FrameMargins -> {{3, 4}, {2, 2}}, FrameStyle -> Directive[
                    Thickness[1], 
                    RGBColor[
                    0.8627450980392157, 0.8627450980392157, 
                    0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> 
                    False, Selectable -> False], 
                    ResourceFunction[
                    ResourceObject[
                    Association[
                    "Name" -> "BitFlip", "UUID" -> 
                    "b6285e6d-0422-49d4-ac33-8cfc52caeceb", "ResourceType" -> 
                    "Function", "Version" -> None, "Description" -> 
                    "Flip an individual bit in an integer (0 to 1, and 1 to \
0)", "SymbolName" -> 
                    "FunctionRepository`$b6285e6d042249d4ac338cfc52caeceb`\
BitFlip", "FunctionLocation" -> None, "ShortName" -> "BitFlip"]]], Selectable -> 
                    False], "]"}], 
                    RawBoxes[
                    InterpretationBox[
                    RowBox[{
                    TagBox["ResourceObject", "SummaryHead"], "[", 
                    
                    DynamicModuleBox[{
                    Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
                    TemplateBox[{
                    PaneSelectorBox[{False -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquarePlusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    GraphicsBox[
                    RasterBox[CompressedData["
1:eJztmzFvEzEUxyNg6JiNtUysmRADQ7qA2KJWrEitCBUMAaVFiO0GRoZILIyV
+gGQGJkqBmZgR06FKoRQRRAghBA6/JI7al585+fzc85X50n/Km3vzu8X28/2
s+/C1r3122dardbOivyxvvlwbTjcfLTRlr/cGOzc2R70b10f7Pa3+8PLW2fl
H69kOieVpqkXiWsrHan7UntSB1KpQQfZtXBPx5dfzIy9zOcJgc+kSfasXt1c
iLEtlUiNGRiLNM7KaNfMmjDVpU2dJzVwdj3XJ6W+uwtqu6MaObFGvtq4fO6q
1JsAGLHAp1Vm1o5YbD+1FfjGMoY1gJWNuUGszsxi1l+bxKoyW/VnMYvDIcYm
qsB3ctwWYY05VTUisnYD8JVLXQJvnfMmbo0NrEkAPnIrKYlRTYzHJgHTXOw6
pXVbWMeC0G8/Prhq1OHG+bn7ju5eKrye4i8806Y8jcaItUcpl2I6hp/vXhVe
TykXnmlTXoH+5UnELG9ivOfL/uNC33+8fjH9/4ebF428f75Ppn+D6ynlwjO/
vdzXlm3Bu6fwkuMUtB9sv96/Lb1H9fP3p0Onvvj5Sb8q7yQ9WRNYlYnt6/On
ZF747MKLv28L3lSc5EydeE3tUuU1fTe25Vvy5vnhhfFS+6wnXmou3Atv2ThT
Nm458FqzcvKWjTPYmHid29OSd8m75OUrf8nLIxg7wFcQtnwuDDp+tlvKC/Ps
JvDCnB3m+RTDazTO+ST44chLHoPh2ab61a2RVF74znRrKKpw+RXmG9bzSVzP
Nv03N1gnUesa8gVwvc4qzCet1wvY/yq8uVHbVZFVWC9YrwdhjWPDG5Cme0vC
Mi+JY0ZDeKfr/dQin6MKxp3c8jUtxGUYb8A4xh1mqfkcUr4OC3JKucFnHMcg
9xIAZ67/zjWJivsouC87xBKfmttXEQ75duDK2zFu44FIl29n2U9xmUt4knY/
xbWOA5Z2v8y1Hweq0v3QNML97jSy8wxK7IrmvErGHM15JIU5mvNmDWSO6Qwl
GyvqzyHGMPbzwChuhzRWeTvvjbijOM+v4Y7ifQ1NG4/ifRwN+6l/36qEPcj3
6f4CgLLCWA==
                    "], {{0, 0}, {60, 60}}, {0, 255}, ColorFunction -> 
                    RGBColor], AspectRatio -> 1, Axes -> False, Background -> 
                    None, Frame -> None, FrameTicks -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}, ImageSizeCache -> {45., {0., 9.}}]], 
                    GridBox[{{
                    RowBox[{
                    TagBox["\"Name: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"BitFlip\"", "SummaryItem"]}], 
                    TagBox["\"\"", "SummaryItem"]}, {
                    RowBox[{
                    TagBox["\"Type: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"Function\"", "SummaryItem"]}], 
                    "\[SpanFromLeft]"}, {
                    RowBox[{
                    TagBox["\"Description: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    "\"Flip an individual bit in an integer (0 to 1, and 1 to \
0)\"", "SummaryItem"]}], "\[SpanFromLeft]"}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}], True -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquareMinusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    GraphicsBox[
                    RasterBox[CompressedData["
1:eJztmzFvEzEUxyNg6JiNtUysmRADQ7qA2KJWrEitCBUMAaVFiO0GRoZILIyV
+gGQGJkqBmZgR06FKoRQRRAghBA6/JI7al585+fzc85X50n/Km3vzu8X28/2
s+/C1r3122dardbOivyxvvlwbTjcfLTRlr/cGOzc2R70b10f7Pa3+8PLW2fl
H69kOieVpqkXiWsrHan7UntSB1KpQQfZtXBPx5dfzIy9zOcJgc+kSfasXt1c
iLEtlUiNGRiLNM7KaNfMmjDVpU2dJzVwdj3XJ6W+uwtqu6MaObFGvtq4fO6q
1JsAGLHAp1Vm1o5YbD+1FfjGMoY1gJWNuUGszsxi1l+bxKoyW/VnMYvDIcYm
qsB3ctwWYY05VTUisnYD8JVLXQJvnfMmbo0NrEkAPnIrKYlRTYzHJgHTXOw6
pXVbWMeC0G8/Prhq1OHG+bn7ju5eKrye4i8806Y8jcaItUcpl2I6hp/vXhVe
TykXnmlTXoH+5UnELG9ivOfL/uNC33+8fjH9/4ebF428f75Ppn+D6ynlwjO/
vdzXlm3Bu6fwkuMUtB9sv96/Lb1H9fP3p0Onvvj5Sb8q7yQ9WRNYlYnt6/On
ZF747MKLv28L3lSc5EydeE3tUuU1fTe25Vvy5vnhhfFS+6wnXmou3Atv2ThT
Nm458FqzcvKWjTPYmHid29OSd8m75OUrf8nLIxg7wFcQtnwuDDp+tlvKC/Ps
JvDCnB3m+RTDazTO+ST44chLHoPh2ab61a2RVF74znRrKKpw+RXmG9bzSVzP
Nv03N1gnUesa8gVwvc4qzCet1wvY/yq8uVHbVZFVWC9YrwdhjWPDG5Cme0vC
Mi+JY0ZDeKfr/dQin6MKxp3c8jUtxGUYb8A4xh1mqfkcUr4OC3JKucFnHMcg
9xIAZ67/zjWJivsouC87xBKfmttXEQ75duDK2zFu44FIl29n2U9xmUt4knY/
xbWOA5Z2v8y1Hweq0v3QNML97jSy8wxK7IrmvErGHM15JIU5mvNmDWSO6Qwl
GyvqzyHGMPbzwChuhzRWeTvvjbijOM+v4Y7ifQ1NG4/ifRwN+6l/36qEPcj3
6f4CgLLCWA==
                    "], {{0, 0}, {60, 60}}, {0, 255}, ColorFunction -> 
                    RGBColor], AspectRatio -> 1, Axes -> False, Background -> 
                    None, Frame -> None, FrameTicks -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}, ImageSizeCache -> {45., {0., 9.}}]], 
                    GridBox[{{
                    RowBox[{
                    TagBox["\"Name: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"BitFlip\"", "SummaryItem"]}], 
                    TagBox["\"\"", "SummaryItem"]}, {
                    RowBox[{
                    TagBox["\"Type: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"Function\"", "SummaryItem"]}], 
                    "\[SpanFromLeft]"}, {
                    RowBox[{
                    TagBox["\"Description: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    "\"Flip an individual bit in an integer (0 to 1, and 1 to \
0)\"", "SummaryItem"]}], "\[SpanFromLeft]"}, {
                    RowBox[{
                    TagBox["\"UUID: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    "\"b6285e6d-0422-49d4-ac33-8cfc52caeceb\"", 
                    "SummaryItem"]}], ""}, {
                    RowBox[{
                    TagBox["\"Version: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["None", "SummaryItem"]}], ""}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}]}, 
                    Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
                    "SummaryPanel"], DynamicModuleValues :> {}], "]"}], 
                    ResourceObject[
                    Association[
                    "Name" -> "BitFlip", "UUID" -> 
                    "b6285e6d-0422-49d4-ac33-8cfc52caeceb", "ResourceType" -> 
                    "Function", "Version" -> None, "Description" -> 
                    "Flip an individual bit in an integer (0 to 1, and 1 to \
0)", "SymbolName" -> 
                    "FunctionRepository`$b6285e6d042249d4ac338cfc52caeceb`\
BitFlip", "FunctionLocation" -> None, "ShortName" -> "BitFlip"]], Selectable -> 
                    False, Editable -> False, SelectWithContents -> True]]}, 
                   "ClickToCopyTemplate"]]}}, Alignment -> Left, 
               ItemSize -> {{Automatic, Automatic, Fit}, Automatic}], 
              FontColor -> GrayLevel[0.5], FontSize -> 12]}}, 
           ItemSize -> {{Automatic, Fit}, Automatic}, Alignment -> Left, 
           Dividers -> {None, {-1 -> GrayLevel[
                Rational[239, 255]]}}, Spacings -> {{1, {}, 1}, {1, {}, 2}}]},
          False]], DynamicModuleValues -> Automatic], Setting[#, {0}]& ], 
     "Text", FontSize -> 12, FontColor -> GrayLevel[0.25], StripOnInput -> 
     False]], "StripeCell", CellFrameMargins -> {{25, 5}, {2, 2}}, 
   CellFrame -> {{0, 0}, {1, 0}}, CellFrameColor -> GrayLevel[0.75]], 
  Cell[
   BoxData[
    StyleBox[
     TagBox[
      DynamicModuleBox[{Typeset`var$$ = False}, 
       InterpretationBox[
        StyleBox[
         PaneSelectorBox[{False -> GridBox[{{
               OpenerBox[
                Dynamic[Typeset`var$$], Appearance -> Automatic, Enabled -> 
                Automatic, AutoAction -> False, ContinuousAction -> False], 
               TagBox[
                GridBox[{{
                   TagBox[
                    GridBox[{{"\"Published to the cloud\"", 
                    
                    TemplateBox[{
                    "\"\[RightGuillemet]\"", 
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"}, "HyperlinkURL"]}}, AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], 
                   TagBox[
                    GridBox[{{"\"ResourceFunction:\"", 
                    TemplateBox[{
                    InterpretationBox[
                    FrameBox[
                    TagBox[
                    GridBox[{{
                    StyleBox[
                    "\"\[EmptyCircle]\"", FontSize -> 1.2 Inherited, 
                    ShowStringCharacters -> False, FontColor -> 
                    RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], 
                    FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], Bold, Plain]], StripOnInput -> 
                    False], 
                    StyleBox[
                    "\"BitFlip\"", FontColor -> 
                    RGBColor[0.2784313725490196, 0.2784313725490196, 
                    0.2784313725490196], ShowAutoStyles -> False, 
                    ShowStringCharacters -> False, FontFamily -> "Roboto", 
                    FontSize -> 0.9 Inherited, FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], "DemiBold", Plain]], 
                    StripOnInput -> False]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], 
                    Background -> 
                    RGBColor[
                    0.9686274509803922, 0.9686274509803922, 
                    0.9686274509803922], ContentPadding -> False, 
                    FrameMargins -> {{3, 4}, {2, 2}}, FrameStyle -> Directive[
                    Thickness[1], 
                    RGBColor[
                    0.8627450980392157, 0.8627450980392157, 
                    0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> 
                    False, Selectable -> False], 
                    ResourceFunction[
                    ResourceObject[
                    Association[
                    "Name" -> "BitFlip", "UUID" -> 
                    "d27a91f4-c1c5-4f75-95fe-24c694ea5f02", "ResourceType" -> 
                    "Function", "Description" -> 
                    "Flip an individual bit in an integer (0 to 1, and 1 to \
0)", "Version" -> None, "ContributorInformation" -> 
                    Association["ContributedBy" -> "Arnoud Buzing"], 
                    "Documentation" -> Association["Usage" -> {
                    Association["Usage" -> BoxData[
                    RowBox[{
                    StyleBox[
                    RowBox[{
                    StyleBox["ResourceFunction", "ResourceFunctionSymbol"], 
                    "[", 
                    StyleBox["\"BitFlip\"", "ResourceFunctionName"], "]"}], 
                    "ResourceFunctionHandle"], "[", 
                    StyleBox[
                    RowBox[{"n", ",", "p"}], FontSlant -> "Italic"], "]"}]], 
                    "Description" -> "flips the pth bit of integer n."]}, 
                    "Notes" -> {
                    Cell[
                    TextData[{"The lowest bit of integer ", 
                    StyleBox["n", FontSlant -> "Italic"], 
                    " (e.g. signifying ", 
                    Cell[
                    BoxData[
                    FormBox[
                    SuperscriptBox["2", "0"], TraditionalForm]]], 
                    ") is flipped with p=0."}], "Notes", 
                    CellEventActions -> {
                    Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
                    SelectedNotebook[], After, Cell]; NotebookFind[
                    SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> 
                    True, WrapAround -> True], Blank[NotebookSelection] :> 
                    SelectionMove[
                    SelectedNotebook[], All, CellContents, AutoScroll -> 
                    True]], PassEventsDown -> False, PassEventsUp -> False}, 
                    CellChangeTimes -> {{3.7573329664257574`*^9, 
                    3.757333051385191*^9}}, CellTags -> "TabNext", CellID -> 
                    521904482]}], "ExampleNotebook" -> NotebookObject[
                    FrontEndObject[
                    LinkObject["yhzwf_shm", 3, 1]], 271], "FunctionLocation" -> 
                    CloudObject[
                    "https://www.wolframcloud.com/objects/arnoudb/Resources/\
d27/d27a91f4-c1c5-4f75-95fe-24c694ea5f02/download/DefinitionData"], 
                    "ShortName" -> "BitFlip", "SymbolName" -> 
                    "FunctionRepository`$d27a91f4c1c54f7595fe24c694ea5f02`\
BitFlip", "ResourceLocations" -> {
                    CloudObject[
                    "https://www.wolframcloud.com/objects/arnoudb/Resources/\
d27/d27a91f4-c1c5-4f75-95fe-24c694ea5f02"]}, "ExampleNotebookData" -> 
                    Automatic]]], Selectable -> False], 
                    RawBoxes[
                    RowBox[{"ResourceFunction", "[", 
                    InterpretationBox[
                    RowBox[{"CloudObject", "[", 
                    
                    TemplateBox[{
                    "\"https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip\"", 
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"}, "HyperlinkURL"], "]"}], 
                    CloudObject[
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"], SelectWithContents -> True], "]"}]]}, 
                    "ClickToCopyTemplate"]}}, AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
                    "Grid"], "\"\"", 
                   StyleBox[
                   "\"Thu 24 Jan 2019 11:04:10\"", FontSlant -> Italic, 
                    FontColor -> GrayLevel[0.5], FontSize -> 0.9 Inherited, 
                    StripOnInput -> False], 
                   TagBox[
                    ButtonBox[
                    TagBox[
                    PaneSelectorBox[{False -> GraphicsBox[{
                    GrayLevel[
                    NCache[
                    Rational[64, 85], 0.7529411764705882]], 
                    
                    PolygonBox[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                    
                    PolygonBox[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                    PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                    None], True -> GraphicsBox[{
                    GrayLevel[
                    NCache[
                    Rational[128, 255], 0.5019607843137255]], 
                    
                    PolygonBox[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                    
                    PolygonBox[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                    PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                    None]}, 
                    Dynamic[
                    CurrentValue["MouseOver"]], ImageSize -> Automatic, 
                    FrameMargins -> 0], 
                    MouseAppearanceTag["LinkHand"]], 
                    ButtonFunction :> (Symbol["System`ResourceFunction"]; 
                    FunctionResource`DefinitionNotebook`Private`deleteMe[
                    "875bfaf5-5eec-408c-8923-305f809dd409"]), Appearance -> 
                    None, BoxID -> "875bfaf5-5eec-408c-8923-305f809dd409", 
                    Evaluator -> Automatic, Method -> "Preemptive"], 
                    MouseAppearanceTag["LinkHand"]]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Left, Left, Center, Right, Right}, 
                   "Rows" -> {{Center}}}, AutoDelete -> False, 
                 GridBoxItemSize -> {"Columns" -> {
                    Scaled[0.35], 
                    Scaled[0.35], Fit, Automatic^2}, 
                   "Rows" -> {{Automatic}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False,
              GridBoxBackground -> {"Columns" -> {{Automatic}}}, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0.5}}}, 
             BaselinePosition -> {1, 1}], True -> GridBox[{{
               OpenerBox[
                Dynamic[Typeset`var$$], Appearance -> Automatic, Enabled -> 
                Automatic, AutoAction -> False, ContinuousAction -> False], 
               TagBox[
                GridBox[{{
                   TagBox[
                    GridBox[{{"\"Published to the cloud\"", 
                    
                    TemplateBox[{
                    "\"\[RightGuillemet]\"", 
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"}, "HyperlinkURL"]}}, AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], 
                   TagBox[
                    GridBox[{{"\"ResourceFunction:\"", 
                    TemplateBox[{
                    InterpretationBox[
                    FrameBox[
                    TagBox[
                    GridBox[{{
                    StyleBox[
                    "\"\[EmptyCircle]\"", FontSize -> 1.2 Inherited, 
                    ShowStringCharacters -> False, FontColor -> 
                    RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], 
                    FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], Bold, Plain]], StripOnInput -> 
                    False], 
                    StyleBox[
                    "\"BitFlip\"", FontColor -> 
                    RGBColor[0.2784313725490196, 0.2784313725490196, 
                    0.2784313725490196], ShowAutoStyles -> False, 
                    ShowStringCharacters -> False, FontFamily -> "Roboto", 
                    FontSize -> 0.9 Inherited, FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], "DemiBold", Plain]], 
                    StripOnInput -> False]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], 
                    Background -> 
                    RGBColor[
                    0.9686274509803922, 0.9686274509803922, 
                    0.9686274509803922], ContentPadding -> False, 
                    FrameMargins -> {{3, 4}, {2, 2}}, FrameStyle -> Directive[
                    Thickness[1], 
                    RGBColor[
                    0.8627450980392157, 0.8627450980392157, 
                    0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> 
                    False, Selectable -> False], 
                    ResourceFunction[
                    ResourceObject[
                    Association[
                    "Name" -> "BitFlip", "UUID" -> 
                    "d27a91f4-c1c5-4f75-95fe-24c694ea5f02", "ResourceType" -> 
                    "Function", "Description" -> 
                    "Flip an individual bit in an integer (0 to 1, and 1 to \
0)", "Version" -> None, "ContributorInformation" -> 
                    Association["ContributedBy" -> "Arnoud Buzing"], 
                    "Documentation" -> Association["Usage" -> {
                    Association["Usage" -> BoxData[
                    RowBox[{
                    StyleBox[
                    RowBox[{
                    StyleBox["ResourceFunction", "ResourceFunctionSymbol"], 
                    "[", 
                    StyleBox["\"BitFlip\"", "ResourceFunctionName"], "]"}], 
                    "ResourceFunctionHandle"], "[", 
                    StyleBox[
                    RowBox[{"n", ",", "p"}], FontSlant -> "Italic"], "]"}]], 
                    "Description" -> "flips the pth bit of integer n."]}, 
                    "Notes" -> {
                    Cell[
                    TextData[{"The lowest bit of integer ", 
                    StyleBox["n", FontSlant -> "Italic"], 
                    " (e.g. signifying ", 
                    Cell[
                    BoxData[
                    FormBox[
                    SuperscriptBox["2", "0"], TraditionalForm]]], 
                    ") is flipped with p=0."}], "Notes", 
                    CellEventActions -> {
                    Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
                    SelectedNotebook[], After, Cell]; NotebookFind[
                    SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> 
                    True, WrapAround -> True], Blank[NotebookSelection] :> 
                    SelectionMove[
                    SelectedNotebook[], All, CellContents, AutoScroll -> 
                    True]], PassEventsDown -> False, PassEventsUp -> False}, 
                    CellChangeTimes -> {{3.7573329664257574`*^9, 
                    3.757333051385191*^9}}, CellTags -> "TabNext", CellID -> 
                    521904482]}], "ExampleNotebook" -> NotebookObject[
                    FrontEndObject[
                    LinkObject["yhzwf_shm", 3, 1]], 271], "FunctionLocation" -> 
                    CloudObject[
                    "https://www.wolframcloud.com/objects/arnoudb/Resources/\
d27/d27a91f4-c1c5-4f75-95fe-24c694ea5f02/download/DefinitionData"], 
                    "ShortName" -> "BitFlip", "SymbolName" -> 
                    "FunctionRepository`$d27a91f4c1c54f7595fe24c694ea5f02`\
BitFlip", "ResourceLocations" -> {
                    CloudObject[
                    "https://www.wolframcloud.com/objects/arnoudb/Resources/\
d27/d27a91f4-c1c5-4f75-95fe-24c694ea5f02"]}, "ExampleNotebookData" -> 
                    Automatic]]], Selectable -> False], 
                    RawBoxes[
                    RowBox[{"ResourceFunction", "[", 
                    InterpretationBox[
                    RowBox[{"CloudObject", "[", 
                    
                    TemplateBox[{
                    "\"https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip\"", 
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"}, "HyperlinkURL"], "]"}], 
                    CloudObject[
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"], SelectWithContents -> True], "]"}]]}, 
                    "ClickToCopyTemplate"]}}, AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
                    "Grid"], "\"\"", 
                   StyleBox[
                   "\"Thu 24 Jan 2019 11:04:10\"", FontSlant -> Italic, 
                    FontColor -> GrayLevel[0.5], FontSize -> 0.9 Inherited, 
                    StripOnInput -> False], 
                   TagBox[
                    ButtonBox[
                    TagBox[
                    PaneSelectorBox[{False -> GraphicsBox[{
                    GrayLevel[
                    NCache[
                    Rational[64, 85], 0.7529411764705882]], 
                    
                    PolygonBox[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                    
                    PolygonBox[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                    PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                    None], True -> GraphicsBox[{
                    GrayLevel[
                    NCache[
                    Rational[128, 255], 0.5019607843137255]], 
                    
                    PolygonBox[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                    
                    PolygonBox[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                    PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                    None]}, 
                    Dynamic[
                    CurrentValue["MouseOver"]], ImageSize -> Automatic, 
                    FrameMargins -> 0], 
                    MouseAppearanceTag["LinkHand"]], 
                    ButtonFunction :> (Symbol["System`ResourceFunction"]; 
                    FunctionResource`DefinitionNotebook`Private`deleteMe[
                    "875bfaf5-5eec-408c-8923-305f809dd409"]), Appearance -> 
                    None, BoxID -> "875bfaf5-5eec-408c-8923-305f809dd409", 
                    Evaluator -> Automatic, Method -> "Preemptive"], 
                    MouseAppearanceTag["LinkHand"]]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Left, Left, Center, Right, Right}, 
                   "Rows" -> {{Center}}}, AutoDelete -> False, 
                 GridBoxItemSize -> {"Columns" -> {
                    Scaled[0.35], 
                    Scaled[0.35], Fit, Automatic^2}, 
                   "Rows" -> {{Automatic}}}], "Grid"]}, {"", 
               PaneBox[
                TagBox[
                 GridBox[{{"\"\"", 
                    StyleBox[
                    TagBox[
                    
                    GridBox[{{
                    "\"\[FilledVerySmallSquare]\"", "\"Cloud object:\"", 
                    TemplateBox[{
                    RowBox[{"CloudObject", "[", 
                    
                    TemplateBox[{
                    "\"https://\[Ellipsis]/arnoudb/DeployedResources/Function/\
BitFlip\"", 
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"}, "HyperlinkURL"], "]"}], 
                    RawBoxes[
                    InterpretationBox[
                    RowBox[{"CloudObject", "[", 
                    
                    TemplateBox[{
                    "\"https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip\"", 
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"}, "HyperlinkURL"], "]"}], 
                    CloudObject[
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"], SelectWithContents -> True]]}, 
                    "ClickToCopyTemplate"]}, {
                    "\"\[FilledVerySmallSquare]\"", "\"Visit web page:\"", 
                    TemplateBox[{
                    TagBox[
                    "\"https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip\"", Short[#, 0.75]& ], 
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"}, "HyperlinkURL"]}, {
                    "\"\[FilledVerySmallSquare]\"", "\"Resource object:\"", 
                    TemplateBox[{
                    RowBox[{"ResourceObject", "[", 
                    InterpretationBox[
                    FrameBox[
                    TagBox[
                    GridBox[{{
                    StyleBox[
                    "\"\[EmptyCircle]\"", FontSize -> 1.2 Inherited, 
                    ShowStringCharacters -> False, FontColor -> 
                    RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], 
                    FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], Bold, Plain]], StripOnInput -> 
                    False], 
                    StyleBox[
                    "\"BitFlip\"", FontColor -> 
                    RGBColor[0.2784313725490196, 0.2784313725490196, 
                    0.2784313725490196], ShowAutoStyles -> False, 
                    ShowStringCharacters -> False, FontFamily -> "Roboto", 
                    FontSize -> 0.9 Inherited, FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], "DemiBold", Plain]], 
                    StripOnInput -> False]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], 
                    Background -> 
                    RGBColor[0.9686274509803922, 0.9686274509803922, 
                    0.9686274509803922], ContentPadding -> False, 
                    FrameMargins -> {{3, 4}, {2, 2}}, FrameStyle -> Directive[
                    Thickness[1], 
                    RGBColor[
                    0.8627450980392157, 0.8627450980392157, 
                    0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> 
                    False, Selectable -> False], 
                    ResourceFunction[
                    ResourceObject[
                    Association[
                    "Name" -> "BitFlip", "UUID" -> 
                    "d27a91f4-c1c5-4f75-95fe-24c694ea5f02", "ResourceType" -> 
                    "Function", "Version" -> None, "Description" -> 
                    "Flip an individual bit in an integer (0 to 1, and 1 to \
0)", "SymbolName" -> 
                    "FunctionRepository`$d27a91f4c1c54f7595fe24c694ea5f02`\
BitFlip", "FunctionLocation" -> None, "ShortName" -> "BitFlip"]]], Selectable -> 
                    False], "]"}], 
                    RawBoxes[
                    InterpretationBox[
                    RowBox[{
                    TagBox["ResourceObject", "SummaryHead"], "[", 
                    
                    DynamicModuleBox[{
                    Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
                    TemplateBox[{
                    PaneSelectorBox[{False -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquarePlusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    GraphicsBox[
                    RasterBox[CompressedData["
1:eJztmzFvEzEUxyNg6JiNtUysmRADQ7qA2KJWrEitCBUMAaVFiO0GRoZILIyV
+gGQGJkqBmZgR06FKoRQRRAghBA6/JI7al585+fzc85X50n/Km3vzu8X28/2
s+/C1r3122dardbOivyxvvlwbTjcfLTRlr/cGOzc2R70b10f7Pa3+8PLW2fl
H69kOieVpqkXiWsrHan7UntSB1KpQQfZtXBPx5dfzIy9zOcJgc+kSfasXt1c
iLEtlUiNGRiLNM7KaNfMmjDVpU2dJzVwdj3XJ6W+uwtqu6MaObFGvtq4fO6q
1JsAGLHAp1Vm1o5YbD+1FfjGMoY1gJWNuUGszsxi1l+bxKoyW/VnMYvDIcYm
qsB3ctwWYY05VTUisnYD8JVLXQJvnfMmbo0NrEkAPnIrKYlRTYzHJgHTXOw6
pXVbWMeC0G8/Prhq1OHG+bn7ju5eKrye4i8806Y8jcaItUcpl2I6hp/vXhVe
TykXnmlTXoH+5UnELG9ivOfL/uNC33+8fjH9/4ebF428f75Ppn+D6ynlwjO/
vdzXlm3Bu6fwkuMUtB9sv96/Lb1H9fP3p0Onvvj5Sb8q7yQ9WRNYlYnt6/On
ZF747MKLv28L3lSc5EydeE3tUuU1fTe25Vvy5vnhhfFS+6wnXmou3Atv2ThT
Nm458FqzcvKWjTPYmHid29OSd8m75OUrf8nLIxg7wFcQtnwuDDp+tlvKC/Ps
JvDCnB3m+RTDazTO+ST44chLHoPh2ab61a2RVF74znRrKKpw+RXmG9bzSVzP
Nv03N1gnUesa8gVwvc4qzCet1wvY/yq8uVHbVZFVWC9YrwdhjWPDG5Cme0vC
Mi+JY0ZDeKfr/dQin6MKxp3c8jUtxGUYb8A4xh1mqfkcUr4OC3JKucFnHMcg
9xIAZ67/zjWJivsouC87xBKfmttXEQ75duDK2zFu44FIl29n2U9xmUt4knY/
xbWOA5Z2v8y1Hweq0v3QNML97jSy8wxK7IrmvErGHM15JIU5mvNmDWSO6Qwl
GyvqzyHGMPbzwChuhzRWeTvvjbijOM+v4Y7ifQ1NG4/ifRwN+6l/36qEPcj3
6f4CgLLCWA==
                    "], {{0, 0}, {60, 60}}, {0, 255}, ColorFunction -> 
                    RGBColor], AspectRatio -> 1, Axes -> False, Background -> 
                    None, Frame -> None, FrameTicks -> None, ImageSize -> 
                    Dynamic[{Automatic, 3.5 (CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification])}, 
                    ImageSizeCache -> {45., {0., 9.}}]], 
                    GridBox[{{
                    RowBox[{
                    TagBox["\"Name: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"BitFlip\"", "SummaryItem"]}], 
                    TagBox["\"\"", "SummaryItem"]}, {
                    RowBox[{
                    TagBox["\"Type: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"Function\"", "SummaryItem"]}], 
                    "\[SpanFromLeft]"}, {
                    RowBox[{
                    TagBox["\"Description: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    "\"Flip an individual bit in an integer (0 to 1, and 1 to \
0)\"", "SummaryItem"]}], "\[SpanFromLeft]"}}, 
                    GridBoxAlignment -> {"Columns" -> {{Left}}, 
                    "Rows" -> {{Automatic}}}, AutoDelete -> False, 
                    GridBoxItemSize -> {"Columns" -> {{Automatic}}, 
                    "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{2}}, 
                    "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}], True -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquareMinusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    GraphicsBox[
                    RasterBox[CompressedData["
1:eJztmzFvEzEUxyNg6JiNtUysmRADQ7qA2KJWrEitCBUMAaVFiO0GRoZILIyV
+gGQGJkqBmZgR06FKoRQRRAghBA6/JI7al585+fzc85X50n/Km3vzu8X28/2
s+/C1r3122dardbOivyxvvlwbTjcfLTRlr/cGOzc2R70b10f7Pa3+8PLW2fl
H69kOieVpqkXiWsrHan7UntSB1KpQQfZtXBPx5dfzIy9zOcJgc+kSfasXt1c
iLEtlUiNGRiLNM7KaNfMmjDVpU2dJzVwdj3XJ6W+uwtqu6MaObFGvtq4fO6q
1JsAGLHAp1Vm1o5YbD+1FfjGMoY1gJWNuUGszsxi1l+bxKoyW/VnMYvDIcYm
qsB3ctwWYY05VTUisnYD8JVLXQJvnfMmbo0NrEkAPnIrKYlRTYzHJgHTXOw6
pXVbWMeC0G8/Prhq1OHG+bn7ju5eKrye4i8806Y8jcaItUcpl2I6hp/vXhVe
TykXnmlTXoH+5UnELG9ivOfL/uNC33+8fjH9/4ebF428f75Ppn+D6ynlwjO/
vdzXlm3Bu6fwkuMUtB9sv96/Lb1H9fP3p0Onvvj5Sb8q7yQ9WRNYlYnt6/On
ZF747MKLv28L3lSc5EydeE3tUuU1fTe25Vvy5vnhhfFS+6wnXmou3Atv2ThT
Nm458FqzcvKWjTPYmHid29OSd8m75OUrf8nLIxg7wFcQtnwuDDp+tlvKC/Ps
JvDCnB3m+RTDazTO+ST44chLHoPh2ab61a2RVF74znRrKKpw+RXmG9bzSVzP
Nv03N1gnUesa8gVwvc4qzCet1wvY/yq8uVHbVZFVWC9YrwdhjWPDG5Cme0vC
Mi+JY0ZDeKfr/dQin6MKxp3c8jUtxGUYb8A4xh1mqfkcUr4OC3JKucFnHMcg
9xIAZ67/zjWJivsouC87xBKfmttXEQ75duDK2zFu44FIl29n2U9xmUt4knY/
xbWOA5Z2v8y1Hweq0v3QNML97jSy8wxK7IrmvErGHM15JIU5mvNmDWSO6Qwl
GyvqzyHGMPbzwChuhzRWeTvvjbijOM+v4Y7ifQ1NG4/ifRwN+6l/36qEPcj3
6f4CgLLCWA==
                    "], {{0, 0}, {60, 60}}, {0, 255}, ColorFunction -> 
                    RGBColor], AspectRatio -> 1, Axes -> False, Background -> 
                    None, Frame -> None, FrameTicks -> None, ImageSize -> 
                    Dynamic[{Automatic, 3.5 (CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification])}, 
                    ImageSizeCache -> {45., {0., 9.}}]], 
                    GridBox[{{
                    RowBox[{
                    TagBox["\"Name: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"BitFlip\"", "SummaryItem"]}], 
                    TagBox["\"\"", "SummaryItem"]}, {
                    RowBox[{
                    TagBox["\"Type: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"Function\"", "SummaryItem"]}], 
                    "\[SpanFromLeft]"}, {
                    RowBox[{
                    TagBox["\"Description: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    "\"Flip an individual bit in an integer (0 to 1, and 1 to \
0)\"", "SummaryItem"]}], "\[SpanFromLeft]"}, {
                    RowBox[{
                    TagBox["\"UUID: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    "\"d27a91f4-c1c5-4f75-95fe-24c694ea5f02\"", 
                    "SummaryItem"]}], ""}, {
                    RowBox[{
                    TagBox["\"Version: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["None", "SummaryItem"]}], ""}}, 
                    GridBoxAlignment -> {"Columns" -> {{Left}}, 
                    "Rows" -> {{Automatic}}}, AutoDelete -> False, 
                    GridBoxItemSize -> {"Columns" -> {{Automatic}}, 
                    "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{2}}, 
                    "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}]}, 
                    Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
                    "SummaryPanel"], DynamicModuleValues :> {}], "]"}], 
                    ResourceObject[
                    Association[
                    "Name" -> "BitFlip", "UUID" -> 
                    "d27a91f4-c1c5-4f75-95fe-24c694ea5f02", "ResourceType" -> 
                    "Function", "Version" -> None, "Description" -> 
                    "Flip an individual bit in an integer (0 to 1, and 1 to \
0)", "SymbolName" -> 
                    "FunctionRepository`$d27a91f4c1c54f7595fe24c694ea5f02`\
BitFlip", "FunctionLocation" -> None, "ShortName" -> "BitFlip"]], Selectable -> 
                    False, Editable -> False, SelectWithContents -> True]]}, 
                    "ClickToCopyTemplate"]}}, 
                    GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {Automatic, Automatic, Fit}, 
                    "Rows" -> {{Automatic}}}], "Grid"], FontColor -> 
                    GrayLevel[0.5], FontSize -> 12, StripOnInput -> False]}}, 
                  GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> 
                  False, GridBoxDividers -> {
                   "Columns" -> {{None}}, "RowsIndexed" -> {-1 -> GrayLevel[
                    Rational[239, 255]]}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {Automatic, Fit}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {1, {}, 1}, "Rows" -> {1, {}, 2}}], "Grid"], 
                ImageMargins -> 0]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False,
              GridBoxBackground -> {"Columns" -> {{Automatic}}}, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0.5}}}, 
             BaselinePosition -> {1, 1}]}, 
          Dynamic[Typeset`var$$], Alignment -> Automatic, ImageSize -> 
          Automatic, ImageMargins -> 0, BaseStyle -> {}, DefaultBaseStyle -> 
          "OpenerView", BaselinePosition -> Baseline], Deployed -> False, 
         StripOnInput -> False], 
        OpenerView[{
          Grid[{{
             Grid[{{"Published to the cloud", 
                Hyperlink[
                "\[RightGuillemet]", 
                 "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"]}}, Spacings -> 0.25], 
             Grid[{{"ResourceFunction:", 
                RawBoxes[
                 TemplateBox[{
                   InterpretationBox[
                    FrameBox[
                    TagBox[
                    GridBox[{{
                    StyleBox[
                    "\"\[EmptyCircle]\"", FontSize -> 1.2 Inherited, 
                    ShowStringCharacters -> False, FontColor -> 
                    RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], 
                    FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], Bold, Plain]], StripOnInput -> 
                    False], 
                    StyleBox[
                    "\"BitFlip\"", FontColor -> 
                    RGBColor[
                    0.2784313725490196, 0.2784313725490196, 
                    0.2784313725490196], ShowAutoStyles -> False, 
                    ShowStringCharacters -> False, FontFamily -> "Roboto", 
                    FontSize -> 0.9 Inherited, FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], "DemiBold", Plain]], 
                    StripOnInput -> False]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], 
                    Background -> 
                    RGBColor[
                    0.9686274509803922, 0.9686274509803922, 
                    0.9686274509803922], ContentPadding -> False, 
                    FrameMargins -> {{3, 4}, {2, 2}}, FrameStyle -> Directive[
                    Thickness[1], 
                    RGBColor[
                    0.8627450980392157, 0.8627450980392157, 
                    0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> 
                    False, Selectable -> False], 
                    ResourceFunction[
                    ResourceObject[
                    Association[
                    "Name" -> "BitFlip", "UUID" -> 
                    "d27a91f4-c1c5-4f75-95fe-24c694ea5f02", "ResourceType" -> 
                    "Function", "Description" -> 
                    "Flip an individual bit in an integer (0 to 1, and 1 to \
0)", "Version" -> None, "ContributorInformation" -> 
                    Association["ContributedBy" -> "Arnoud Buzing"], 
                    "Documentation" -> Association["Usage" -> {
                    Association["Usage" -> BoxData[
                    RowBox[{
                    StyleBox[
                    RowBox[{
                    StyleBox["ResourceFunction", "ResourceFunctionSymbol"], 
                    "[", 
                    StyleBox["\"BitFlip\"", "ResourceFunctionName"], "]"}], 
                    "ResourceFunctionHandle"], "[", 
                    StyleBox[
                    RowBox[{"n", ",", "p"}], FontSlant -> "Italic"], "]"}]], 
                    "Description" -> "flips the pth bit of integer n."]}, 
                    "Notes" -> {
                    Cell[
                    TextData[{"The lowest bit of integer ", 
                    StyleBox["n", FontSlant -> "Italic"], 
                    " (e.g. signifying ", 
                    Cell[
                    BoxData[
                    FormBox[
                    SuperscriptBox["2", "0"], TraditionalForm]]], 
                    ") is flipped with p=0."}], "Notes", 
                    CellEventActions -> {
                    Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
                    SelectedNotebook[], After, Cell]; NotebookFind[
                    SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> 
                    True, WrapAround -> True], Blank[NotebookSelection] :> 
                    SelectionMove[
                    SelectedNotebook[], All, CellContents, AutoScroll -> 
                    True]], PassEventsDown -> False, PassEventsUp -> False}, 
                    CellChangeTimes -> {{3.7573329664257574`*^9, 
                    3.757333051385191*^9}}, CellTags -> "TabNext", CellID -> 
                    521904482]}], "ExampleNotebook" -> NotebookObject[
                    FrontEndObject[
                    LinkObject["yhzwf_shm", 3, 1]], 271], "FunctionLocation" -> 
                    CloudObject[
                    "https://www.wolframcloud.com/objects/arnoudb/Resources/\
d27/d27a91f4-c1c5-4f75-95fe-24c694ea5f02/download/DefinitionData"], 
                    "ShortName" -> "BitFlip", "SymbolName" -> 
                    "FunctionRepository`$d27a91f4c1c54f7595fe24c694ea5f02`\
BitFlip", "ResourceLocations" -> {
                    CloudObject[
                    "https://www.wolframcloud.com/objects/arnoudb/Resources/\
d27/d27a91f4-c1c5-4f75-95fe-24c694ea5f02"]}, "ExampleNotebookData" -> 
                    Automatic]]], Selectable -> False], 
                   RawBoxes[
                    RowBox[{"ResourceFunction", "[", 
                    InterpretationBox[
                    RowBox[{"CloudObject", "[", 
                    
                    TemplateBox[{
                    "\"https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip\"", 
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"}, "HyperlinkURL"], "]"}], 
                    CloudObject[
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"], SelectWithContents -> True], "]"}]]}, 
                  "ClickToCopyTemplate"]]}}], "", 
             Style[
             "Thu 24 Jan 2019 11:04:10", FontSlant -> Italic, FontColor -> 
              GrayLevel[0.5], FontSize -> 0.9 Inherited], 
             MouseAppearance[
              Button[
               MouseAppearance[
                Mouseover[
                 Graphics[{
                   GrayLevel[
                    Rational[64, 85]], 
                   
                   Polygon[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                   
                   Polygon[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                  PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                  None], 
                 Graphics[{
                   GrayLevel[
                    Rational[128, 255]], 
                   
                   Polygon[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                   
                   Polygon[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                  PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                  None]], "LinkHand"], Symbol["System`ResourceFunction"]; 
               FunctionResource`DefinitionNotebook`Private`deleteMe[
                "875bfaf5-5eec-408c-8923-305f809dd409"], Appearance -> None, 
               BoxID -> "875bfaf5-5eec-408c-8923-305f809dd409"], 
              "LinkHand"]}}, ItemSize -> {{
              Scaled[0.35], 
              Scaled[0.35], Fit, Automatic^2}, Automatic}, 
           Alignment -> {{Left, Left, Center, Right, Right}, Center}], 
          Grid[{{"", 
             Style[
              Grid[{{"\[FilledVerySmallSquare]", "Cloud object:", 
                 RawBoxes[
                  TemplateBox[{
                    RowBox[{"CloudObject", "[", 
                    
                    TemplateBox[{
                    "\"https://\[Ellipsis]/arnoudb/DeployedResources/Function/\
BitFlip\"", 
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"}, "HyperlinkURL"], "]"}], 
                    RawBoxes[
                    InterpretationBox[
                    RowBox[{"CloudObject", "[", 
                    
                    TemplateBox[{
                    "\"https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip\"", 
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"}, "HyperlinkURL"], "]"}], 
                    CloudObject[
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"], SelectWithContents -> True]]}, 
                   "ClickToCopyTemplate"]]}, {
                "\[FilledVerySmallSquare]", "Visit web page:", 
                 Hyperlink[
                  RawBoxes[
                   TagBox[
                   "\"https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip\"", Short[#, 0.75]& ]], 
                  "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/BitFlip"]}, {
                "\[FilledVerySmallSquare]", "Resource object:", 
                 RawBoxes[
                  TemplateBox[{
                    RowBox[{"ResourceObject", "[", 
                    InterpretationBox[
                    FrameBox[
                    TagBox[
                    GridBox[{{
                    StyleBox[
                    "\"\[EmptyCircle]\"", FontSize -> 1.2 Inherited, 
                    ShowStringCharacters -> False, FontColor -> 
                    RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], 
                    FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], Bold, Plain]], StripOnInput -> 
                    False], 
                    StyleBox[
                    "\"BitFlip\"", FontColor -> 
                    RGBColor[0.2784313725490196, 0.2784313725490196, 
                    0.2784313725490196], ShowAutoStyles -> False, 
                    ShowStringCharacters -> False, FontFamily -> "Roboto", 
                    FontSize -> 0.9 Inherited, FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], "DemiBold", Plain]], 
                    StripOnInput -> False]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], 
                    Background -> 
                    RGBColor[
                    0.9686274509803922, 0.9686274509803922, 
                    0.9686274509803922], ContentPadding -> False, 
                    FrameMargins -> {{3, 4}, {2, 2}}, FrameStyle -> Directive[
                    Thickness[1], 
                    RGBColor[
                    0.8627450980392157, 0.8627450980392157, 
                    0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> 
                    False, Selectable -> False], 
                    ResourceFunction[
                    ResourceObject[
                    Association[
                    "Name" -> "BitFlip", "UUID" -> 
                    "d27a91f4-c1c5-4f75-95fe-24c694ea5f02", "ResourceType" -> 
                    "Function", "Version" -> None, "Description" -> 
                    "Flip an individual bit in an integer (0 to 1, and 1 to \
0)", "SymbolName" -> 
                    "FunctionRepository`$d27a91f4c1c54f7595fe24c694ea5f02`\
BitFlip", "FunctionLocation" -> None, "ShortName" -> "BitFlip"]]], Selectable -> 
                    False], "]"}], 
                    RawBoxes[
                    InterpretationBox[
                    RowBox[{
                    TagBox["ResourceObject", "SummaryHead"], "[", 
                    
                    DynamicModuleBox[{
                    Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
                    TemplateBox[{
                    PaneSelectorBox[{False -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquarePlusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    GraphicsBox[
                    RasterBox[CompressedData["
1:eJztmzFvEzEUxyNg6JiNtUysmRADQ7qA2KJWrEitCBUMAaVFiO0GRoZILIyV
+gGQGJkqBmZgR06FKoRQRRAghBA6/JI7al585+fzc85X50n/Km3vzu8X28/2
s+/C1r3122dardbOivyxvvlwbTjcfLTRlr/cGOzc2R70b10f7Pa3+8PLW2fl
H69kOieVpqkXiWsrHan7UntSB1KpQQfZtXBPx5dfzIy9zOcJgc+kSfasXt1c
iLEtlUiNGRiLNM7KaNfMmjDVpU2dJzVwdj3XJ6W+uwtqu6MaObFGvtq4fO6q
1JsAGLHAp1Vm1o5YbD+1FfjGMoY1gJWNuUGszsxi1l+bxKoyW/VnMYvDIcYm
qsB3ctwWYY05VTUisnYD8JVLXQJvnfMmbo0NrEkAPnIrKYlRTYzHJgHTXOw6
pXVbWMeC0G8/Prhq1OHG+bn7ju5eKrye4i8806Y8jcaItUcpl2I6hp/vXhVe
TykXnmlTXoH+5UnELG9ivOfL/uNC33+8fjH9/4ebF428f75Ppn+D6ynlwjO/
vdzXlm3Bu6fwkuMUtB9sv96/Lb1H9fP3p0Onvvj5Sb8q7yQ9WRNYlYnt6/On
ZF747MKLv28L3lSc5EydeE3tUuU1fTe25Vvy5vnhhfFS+6wnXmou3Atv2ThT
Nm458FqzcvKWjTPYmHid29OSd8m75OUrf8nLIxg7wFcQtnwuDDp+tlvKC/Ps
JvDCnB3m+RTDazTO+ST44chLHoPh2ab61a2RVF74znRrKKpw+RXmG9bzSVzP
Nv03N1gnUesa8gVwvc4qzCet1wvY/yq8uVHbVZFVWC9YrwdhjWPDG5Cme0vC
Mi+JY0ZDeKfr/dQin6MKxp3c8jUtxGUYb8A4xh1mqfkcUr4OC3JKucFnHMcg
9xIAZ67/zjWJivsouC87xBKfmttXEQ75duDK2zFu44FIl29n2U9xmUt4knY/
xbWOA5Z2v8y1Hweq0v3QNML97jSy8wxK7IrmvErGHM15JIU5mvNmDWSO6Qwl
GyvqzyHGMPbzwChuhzRWeTvvjbijOM+v4Y7ifQ1NG4/ifRwN+6l/36qEPcj3
6f4CgLLCWA==
                    "], {{0, 0}, {60, 60}}, {0, 255}, ColorFunction -> 
                    RGBColor], AspectRatio -> 1, Axes -> False, Background -> 
                    None, Frame -> None, FrameTicks -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}, ImageSizeCache -> {45., {0., 9.}}]], 
                    GridBox[{{
                    RowBox[{
                    TagBox["\"Name: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"BitFlip\"", "SummaryItem"]}], 
                    TagBox["\"\"", "SummaryItem"]}, {
                    RowBox[{
                    TagBox["\"Type: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"Function\"", "SummaryItem"]}], 
                    "\[SpanFromLeft]"}, {
                    RowBox[{
                    TagBox["\"Description: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    "\"Flip an individual bit in an integer (0 to 1, and 1 to \
0)\"", "SummaryItem"]}], "\[SpanFromLeft]"}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}], True -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquareMinusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    GraphicsBox[
                    RasterBox[CompressedData["
1:eJztmzFvEzEUxyNg6JiNtUysmRADQ7qA2KJWrEitCBUMAaVFiO0GRoZILIyV
+gGQGJkqBmZgR06FKoRQRRAghBA6/JI7al585+fzc85X50n/Km3vzu8X28/2
s+/C1r3122dardbOivyxvvlwbTjcfLTRlr/cGOzc2R70b10f7Pa3+8PLW2fl
H69kOieVpqkXiWsrHan7UntSB1KpQQfZtXBPx5dfzIy9zOcJgc+kSfasXt1c
iLEtlUiNGRiLNM7KaNfMmjDVpU2dJzVwdj3XJ6W+uwtqu6MaObFGvtq4fO6q
1JsAGLHAp1Vm1o5YbD+1FfjGMoY1gJWNuUGszsxi1l+bxKoyW/VnMYvDIcYm
qsB3ctwWYY05VTUisnYD8JVLXQJvnfMmbo0NrEkAPnIrKYlRTYzHJgHTXOw6
pXVbWMeC0G8/Prhq1OHG+bn7ju5eKrye4i8806Y8jcaItUcpl2I6hp/vXhVe
TykXnmlTXoH+5UnELG9ivOfL/uNC33+8fjH9/4ebF428f75Ppn+D6ynlwjO/
vdzXlm3Bu6fwkuMUtB9sv96/Lb1H9fP3p0Onvvj5Sb8q7yQ9WRNYlYnt6/On
ZF747MKLv28L3lSc5EydeE3tUuU1fTe25Vvy5vnhhfFS+6wnXmou3Atv2ThT
Nm458FqzcvKWjTPYmHid29OSd8m75OUrf8nLIxg7wFcQtnwuDDp+tlvKC/Ps
JvDCnB3m+RTDazTO+ST44chLHoPh2ab61a2RVF74znRrKKpw+RXmG9bzSVzP
Nv03N1gnUesa8gVwvc4qzCet1wvY/yq8uVHbVZFVWC9YrwdhjWPDG5Cme0vC
Mi+JY0ZDeKfr/dQin6MKxp3c8jUtxGUYb8A4xh1mqfkcUr4OC3JKucFnHMcg
9xIAZ67/zjWJivsouC87xBKfmttXEQ75duDK2zFu44FIl29n2U9xmUt4knY/
xbWOA5Z2v8y1Hweq0v3QNML97jSy8wxK7IrmvErGHM15JIU5mvNmDWSO6Qwl
GyvqzyHGMPbzwChuhzRWeTvvjbijOM+v4Y7ifQ1NG4/ifRwN+6l/36qEPcj3
6f4CgLLCWA==
                    "], {{0, 0}, {60, 60}}, {0, 255}, ColorFunction -> 
                    RGBColor], AspectRatio -> 1, Axes -> False, Background -> 
                    None, Frame -> None, FrameTicks -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}, ImageSizeCache -> {45., {0., 9.}}]], 
                    GridBox[{{
                    RowBox[{
                    TagBox["\"Name: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"BitFlip\"", "SummaryItem"]}], 
                    TagBox["\"\"", "SummaryItem"]}, {
                    RowBox[{
                    TagBox["\"Type: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"Function\"", "SummaryItem"]}], 
                    "\[SpanFromLeft]"}, {
                    RowBox[{
                    TagBox["\"Description: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    "\"Flip an individual bit in an integer (0 to 1, and 1 to \
0)\"", "SummaryItem"]}], "\[SpanFromLeft]"}, {
                    RowBox[{
                    TagBox["\"UUID: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    "\"d27a91f4-c1c5-4f75-95fe-24c694ea5f02\"", 
                    "SummaryItem"]}], ""}, {
                    RowBox[{
                    TagBox["\"Version: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["None", "SummaryItem"]}], ""}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}]}, 
                    Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
                    "SummaryPanel"], DynamicModuleValues :> {}], "]"}], 
                    ResourceObject[
                    Association[
                    "Name" -> "BitFlip", "UUID" -> 
                    "d27a91f4-c1c5-4f75-95fe-24c694ea5f02", "ResourceType" -> 
                    "Function", "Version" -> None, "Description" -> 
                    "Flip an individual bit in an integer (0 to 1, and 1 to \
0)", "SymbolName" -> 
                    "FunctionRepository`$d27a91f4c1c54f7595fe24c694ea5f02`\
BitFlip", "FunctionLocation" -> None, "ShortName" -> "BitFlip"]], Selectable -> 
                    False, Editable -> False, SelectWithContents -> True]]}, 
                   "ClickToCopyTemplate"]]}}, Alignment -> Left, 
               ItemSize -> {{Automatic, Automatic, Fit}, Automatic}], 
              FontColor -> GrayLevel[0.5], FontSize -> 12]}}, 
           ItemSize -> {{Automatic, Fit}, Automatic}, Alignment -> Left, 
           Dividers -> {None, {-1 -> GrayLevel[
                Rational[239, 255]]}}, Spacings -> {{1, {}, 1}, {1, {}, 2}}]},
          False]], DynamicModuleValues -> Automatic], Setting[#, {0}]& ], 
     "Text", FontSize -> 12, FontColor -> GrayLevel[0.25], StripOnInput -> 
     False]], "StripeCell", CellFrameMargins -> {{25, 5}, {2, 2}}, 
   CellFrame -> {{0, 0}, {1, 0}}, CellFrameColor -> GrayLevel[0.75]]},
TaggingRules->{
 "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, 
  "TemplateVersion" -> "1.2.12", "StatusMessage" -> "", "AttachedHints" -> {}},
CreateCellID->True,
FrontEndVersion->"12.0 for Microsoft Windows (64-bit) (January 21, 2019)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[StyleDefinitions -> "Default.nb"]], 
   Cell[
    StyleData[All, "Working"], DockedCells -> {
      Cell[
       BoxData[
        TagBox[
         GridBox[{{
            TagBox[
             GridBox[{{
                GraphicsBox[{
                  Thickness[0.022222222222222223`], {
                   FaceForm[{
                    RGBColor[0.87451, 0.278431, 0.03137260000000001], 
                    Opacity[1.]}], 
                   
                   FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 
                    3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 
                    0.}, {22.5, 0.}, {10.074, 0.}, {0., 
                    10.073999999999998`}, {0., 22.5}, {0., 34.926}, {10.074, 
                    45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 
                    22.5}}}]}, {
                   FaceForm[{
                    RGBColor[1., 1., 1.], 
                    Opacity[1.]}], 
                   
                   FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 
                    3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 
                    3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 
                    3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 
                    3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 
                    3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 
                    0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 
                    3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData["
1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e
ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa
4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB
9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2
cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1
2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh
Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e
PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx
71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP
iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h
I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A
peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8=
                    "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 
                    27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 
                    26.308999999999997`}, {21.375, 26.258000000000003`}, {
                    21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 
                    15.602}, {21.426, 15.547}, {23.828, 
                    15.315999999999999`}, {23.828, 14.242}}, {{24.578, 
                    18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, {
                    24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, {
                    30.203, 23.91}, {30.578, 23.539}, {30.578, 
                    23.078000000000003`}, {30.578, 18.75}, {
                    30.581999999999997`, 18.288999999999998`}, {30.207, 
                    17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 
                    17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 
                    14.242}, {31.328, 15.315999999999999`}, {33.684, 
                    15.539000000000001`}, {33.789, 15.602}, {33.789, 
                    17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 
                    26.281}, {31.328, 26.512000000000004`}, {31.328, 
                    27.586}, {36.113, 27.586}, {36.113, 
                    14.234000000000002`}}}]}}, {
                 Background -> RGBColor[0.988235, 0.419608, 0.203922], 
                  AspectRatio -> Automatic, ImageSize -> {45., 45.}, 
                  PlotRange -> {{0., 45.}, {0., 45.}}}], 
                StyleBox[
                "\"Function Resource Definition Notebook\"", FontFamily -> 
                 "Source Sans Pro", FontWeight -> Bold, FontSize -> 22, 
                 FontColor -> GrayLevel[1], StripOnInput -> False]}}, 
              GridBoxAlignment -> {
               "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
              False, GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", 
            "\[SpanFromLeft]", "\[SpanFromLeft]", 
            ItemBox[
             TemplateBox[{
               StyleBox[
               "\"Function Repository \[RightGuillemet]\"", "Text", FontColor -> 
                GrayLevel[1], StripOnInput -> False], 
               "https://resources.wolframcloud.com/FunctionRepository/"}, 
              "HyperlinkURL"], Alignment -> {Right, Bottom}, StripOnInput -> 
             False]}, {
            ButtonBox[
             TemplateBox[{
               StyleBox[
               "\"Open Sample Notebook\"", "Text", FontFamily -> 
                "Source Sans Pro SemiBold", FontWeight -> "SemiBold", 
                FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> 
                False], "\"View a completed sample definition notebook\""}, 
              "PrettyTooltipTemplate"], 
             ButtonFunction :> (Symbol["System`ResourceFunction"]; 
              FunctionResource`DefinitionNotebook`Private`showProgress[
                
                FunctionResource`DefinitionNotebook`Private`\
viewExampleNotebook[]]), FrameMargins -> {{1, 1}, {0, 0}}, 
             Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h
Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89
GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A
+GMDZA==
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
               "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL
CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8
6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf
AJBwAV4=
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
               "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/
E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc
CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC
jIx4IS/2yUhjJKVkUvMLAMWzMVI=
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
             Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> 
             "Queued", ImageSize -> {All, 25}, Evaluator -> Automatic], 
            ButtonBox[
             TemplateBox[{
               StyleBox[
               "\"Style Guidelines\"", "Text", FontFamily -> 
                "Source Sans Pro SemiBold", FontWeight -> "SemiBold", 
                FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> 
                False], "\"Coming soon\""}, "PrettyTooltipTemplate"], 
             ButtonFunction :> (Symbol["System`ResourceFunction"]; 
              FunctionResource`DefinitionNotebook`Private`showProgress[
                MessageDialog["Coming soon."]]), 
             FrameMargins -> {{1, 1}, {0, 0}}, 
             Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h
Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89
GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A
+GMDZA==
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
               "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL
CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8
6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf
AJBwAV4=
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
               "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/
E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc
CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC
jIx4IS/2yUhjJKVkUvMLAMWzMVI=
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
             Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> 
             "Queued", ImageSize -> {All, 25}, Evaluator -> Automatic], 
            TagBox[
             
             GridBox[{{"\"\"", "\"\""}}, 
              GridBoxAlignment -> {
               "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
              False, GridBoxDividers -> {
               "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{2}}}, FrameStyle -> 
              RGBColor[0.994118, 0.709804, 0.601961]], "Grid"], 
            ActionMenuBox[
             ButtonBox[
              StyleBox[
              "\"Preview \[DownPointer]\"", "Text", FontFamily -> 
               "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontSize -> 
               13, FontColor -> GrayLevel[1], StripOnInput -> False], 
              ButtonFunction :> (Symbol["System`ResourceFunction"]; 
               FunctionResource`DefinitionNotebook`Private`showProgress[
                Null]), FrameMargins -> {{1, 1}, {0, 0}}, 
              Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h
Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89
GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A
+GMDZA==
                  "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
                "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL
CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8
6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf
AJBwAV4=
                  "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
                "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/
E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc
CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC
jIx4IS/2yUhjJKVkUvMLAMWzMVI=
                  "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
              Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> 
              "Queued", ImageSize -> {All, 25}, Evaluator -> Automatic], {
             "\"In a notebook\"" :> (Symbol["System`ResourceFunction"]; 
               FunctionResource`DefinitionNotebook`Private`getResource[
                 ButtonNotebook[], "Preview"]), 
              "\"On the cloud\"" :> (Symbol["System`ResourceFunction"]; 
               FunctionResource`DefinitionNotebook`Private`getResource[
                 ButtonNotebook[], "Cloud"])}, Appearance -> None, Method -> 
             "Queued"], 
            ActionMenuBox[
             ButtonBox[
              StyleBox[
              "\"Deploy \[DownPointer]\"", "Text", FontFamily -> 
               "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontSize -> 
               13, FontColor -> GrayLevel[1], StripOnInput -> False], 
              ButtonFunction :> (Symbol["System`ResourceFunction"]; 
               FunctionResource`DefinitionNotebook`Private`showProgress[
                Null]), FrameMargins -> {{1, 1}, {0, 0}}, 
              Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h
Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89
GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A
+GMDZA==
                  "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
                "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL
CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8
6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf
AJBwAV4=
                  "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
                "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/
E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc
CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC
jIx4IS/2yUhjJKVkUvMLAMWzMVI=
                  "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
              Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> 
              "Queued", ImageSize -> {All, 25}, Evaluator -> Automatic], {
             "\"Locally on this computer\"" :> (
               Symbol["System`ResourceFunction"]; 
               FunctionResource`DefinitionNotebook`Private`getResource[
                 ButtonNotebook[], "Local"]), 
              "\"For my cloud account\"" :> (
               Symbol["System`ResourceFunction"]; 
               FunctionResource`DefinitionNotebook`Private`getResource[
                 ButtonNotebook[], "Cloud"]), 
              "\"Publicly in the cloud\"" :> (
               Symbol["System`ResourceFunction"]; 
               FunctionResource`DefinitionNotebook`Private`getResource[
                 ButtonNotebook[], "CloudPublic"]), 
              "\"In this session only (without documentation)\"" :> (
               Symbol["System`ResourceFunction"]; 
               FunctionResource`DefinitionNotebook`Private`getResource[
                 ButtonNotebook[], "KernelSession"])}, Appearance -> None, 
             Method -> "Queued"], 
            ItemBox[
             StyleBox[
              DynamicBox[
               ToBoxes[
                CurrentValue[
                 EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], 
                StandardForm]], "Text", 
              GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, 
             StripOnInput -> False], 
            ButtonBox[
             TemplateBox[{
               StyleBox[
                TagBox[
                 GridBox[{{
                    GraphicsBox[{
                    Thickness[0.06349206349206349], 
                    StyleBox[{
                    
                    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
                     0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1,
                     0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP
p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4=

                    "]]}, 
                    FaceForm[
                    RGBColor[0.960784, 0.705882, 0.498039, 1.]], StripOnInput -> 
                    False], 
                    StyleBox[{
                    
                    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
                     0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1,
                     0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 
                    2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+
Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG
QUPVNSjgp+HmIWgAG/wcEg==
                    "]], 
                    
                    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
                     0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1,
                     0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 
                    2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 
                    1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0,
                     1, 0}, {0, 1, 0}}}, CompressedData["
1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO
u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H
eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw==
                    "]]}, 
                    FaceForm[
                    RGBColor[1., 1., 1., 1.]], StripOnInput -> False]}, 
                    ImageSize -> 18, PlotRange -> {{0., 15.75}, {0., 16.5}}, 
                    AspectRatio -> Automatic], "\"Submit to Repository\""}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
                  False, 
                  GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.25}, 
                    "Rows" -> {{0}}}], "Grid"], "Text", FontFamily -> 
                "Source Sans Pro SemiBold", FontWeight -> "SemiBold", 
                FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> 
                False], 
               "\"Submit your function to the Wolfram Function Repository\""},
               "PrettyTooltipTemplate"], 
             ButtonFunction :> (Symbol["System`ResourceFunction"]; 
              FunctionResource`DefinitionNotebook`Private`showProgress[
                FunctionResource`DefinitionNotebook`Private`submitRepository[
                 ButtonNotebook[]]]), FrameMargins -> {{1, 1}, {0, 0}}, 
             Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h
Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89
GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A
+GMDZA==
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
               "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL
CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8
6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf
AJBwAV4=
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
               "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/
E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc
CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC
jIx4IS/2yUhjJKVkUvMLAMWzMVI=
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
             Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> 
             "Queued", ImageSize -> {All, 25}, Evaluator -> Automatic]}}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, 
          AutoDelete -> False, 
          GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> {
              RGBColor[0.988235, 0.419608, 0.203922], 
              RGBColor[0.921569, 0.341176, 0.105882]}}, 
          GridBoxFrame -> {
           "Columns" -> False, 
            "RowsIndexed" -> {
             1 -> RGBColor[0.988235, 0.419608, 0.203922], 2 -> 
              RGBColor[0.921569, 0.341176, 0.105882]}}, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "RowsIndexed" -> {1 -> 6, 2 -> 4}}, 
          GridBoxSpacings -> {
           "Columns" -> {5, {}, 5}, "Rows" -> {{Automatic}}}, FrameStyle -> 
          RGBColor[0.988235, 0.419608, 0.203922]], "Grid"]], "DockedCell", 
       CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0]}], 
   Cell[
    StyleData["Notebook"], ComponentwiseContextMenu -> {"CellInsertionPoint" -> {
        MenuItem["Insert Example Group", 
         FrontEndExecute[{
           FrontEnd`NotebookWrite[
            FrontEnd`InputNotebook[], 
            Cell[
             CellGroupData[{
               Cell["", "PageBreak", PageBreakBelow -> True], 
               Cell["XXXX", "Text"], 
               Cell[
                BoxData["XXXX"], "Input"]}, Open]]]}]], 
        MenuItem["Insert Example Delimiter", 
         FrontEndExecute[{
           FrontEnd`NotebookWrite[
            FrontEnd`InputNotebook[], 
            Cell["", "PageBreak", PageBreakBelow -> True], After]}]], 
        Delimiter, 
        MenuItem["&Paste", 
         FrontEnd`Paste[After]], 
        Menu["&Insert New Cell", {
          MenuItem[
          "Start Cell Style Names", "MenuListStyles", MenuAnchor -> True], 
          Delimiter, 
          MenuItem["&Other...", "StyleOther"]}], Delimiter, 
        MenuItem["Copy Notebook Ob&ject", 
         FrontEnd`CopySpecial["NotebookObject"]], Delimiter, 
        MenuItem["Toggle &Full Screen", 
         FrontEndExecute[
          FrontEnd`Value[
           FEPrivate`NotebookToggleFullScreen[]]]]}}], 
   Cell[
    StyleData["Item"], DefaultNewCellStyle -> "Item"], 
   Cell[
    StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], 
    FontColor -> GrayLevel[0.25]], 
   Cell[
    StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], 
    ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {0, 0}}, 
    CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, 
    FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], 
   Cell[
    StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], 
    ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {0, 0}}, 
    CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, 
    FontWeight -> Bold, FontColor -> RGBColor[1, 1, 0]], 
   Cell[
    StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, 
    FontWeight -> Bold, FontColor -> RGBColor[0.458824, 0.458824, 0.458824]], 
   Cell[
    StyleData["MoreInfoOpenerIconTemplate"], 
    TemplateBoxOptions -> {
     DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{
            Thickness[0.07142857142857142], 
            StyleBox[{
              
              JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
                3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz
jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G
bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c
5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28
               "], CurveClosed -> {1}]}, 
             JoinForm[{"Miter", 3.25}], 
             Thickness[0.049999999999999996`], 
             RGBColor[0.627441, 0.627441, 0.627441, 1.], StripOnInput -> 
             False], 
            StyleBox[{
              
              FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
                 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 
                0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1,
                 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 
                0}}}, {CompressedData["
1:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6
eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP
axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7
3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5
uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT

                "], CompressedData["
1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW
bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+
thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a
knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0
8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8
FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638=
                "]}]}, 
             FaceForm[
              RGBColor[0.627441, 0.627441, 0.627441, 1.]], StripOnInput -> 
             False]}, ImageSize -> {14., 14.}, 
           PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic], 
         True -> GraphicsBox[{
            Thickness[0.07142857142857142], 
            StyleBox[{
              
              JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
                3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz
jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G
bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c
5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28
               "], CurveClosed -> {1}]}, 
             JoinForm[{"Miter", 3.25}], 
             Thickness[0.049999999999999996`], 
             RGBColor[0.5, 0.5, 0.5, 1.], StripOnInput -> False], 
            StyleBox[{
              
              FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
                3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz
jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G
bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c
5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28
               "]]}, 
             FaceForm[
              RGBColor[0.5, 0.5, 0.5, 1.]], StripOnInput -> False], 
            StyleBox[{
              
              FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
                 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 
                0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1,
                 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 
                0}}}, {CompressedData["
1:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6
eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP
axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7
3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5
uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT

                "], CompressedData["
1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW
bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+
thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a
knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0
8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8
FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638=
                "]}]}, 
             FaceForm[
              RGBColor[0.999985, 0.999985, 0.999985, 1.]], StripOnInput -> 
             False]}, ImageSize -> {14., 14.}, 
           PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic]}, 
        Dynamic[
         CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 
        0]& )}], 
   Cell[
    StyleData["MoreInfoOpenerButtonTemplate"], 
    TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[
        ButtonBox[
         TemplateBox[{
           TemplateBox[{}, "MoreInfoOpenerIconTemplate"], 
           "\"Click for more information\""}, "PrettyTooltipTemplate"], 
         ButtonFunction :> (If[
            MatchQ[
             CurrentValue[
              ButtonNotebook[], {TaggingRules, "AttachedCells", #}], 
             Blank[CellObject]], NotebookDelete[
              CurrentValue[
               ButtonNotebook[], {TaggingRules, "AttachedCells", #}]]; 
            CurrentValue[
               ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = 
             Inherited, CurrentValue[
               ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = 
             MathLink`CallFrontEnd[
               FrontEnd`AttachCell[
                ParentCell[
                 EvaluationCell[]], #2, "Inline", 
                "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]; 
            Null]; Null), Appearance -> None, Evaluator -> Automatic, Method -> 
         "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], 
   Cell[
    StyleData["ClickToCopyTemplate"], 
    TemplateBoxOptions -> {
     DisplayFunction -> (PaneSelectorBox[{False -> TagBox[
           GridBox[{{#, 
              ButtonBox[
               GraphicsBox[{
                 GrayLevel[0.85], 
                 Thickness[
                  NCache[2/45, 0.044444444444444446`]], 
                 
                 FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                   0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 
                   0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                   0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                   0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {
                   9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 
                   18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, {
                   16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, {
                   15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {
                   8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75, 
                   16.5}, {9.75, 16.5}}}], 
                 
                 FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                  0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                  0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {
                  14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, {
                  14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 
                  9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 
                  7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, 
                ImageSize -> 12], ButtonFunction :> Null, 
               Appearance -> {
                "Default" -> None, "Hover" -> None, "Pressed" -> None}, 
               Evaluator -> Automatic, Method -> "Preemptive"]}}, 
            GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}},
             AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True -> 
         DynamicModuleBox[{
           FunctionResourceTools`BuildDefinitionNotebook`Private`clickTime$$ = 
            0., FunctionResourceTools`BuildDefinitionNotebook`Private`timeout$\
$ = 3.}, 
           TagBox[
            GridBox[{{#, 
               TagBox[
                ButtonBox[
                 DynamicBox[
                  ToBoxes[
                   Refresh[
                    If[
                    AbsoluteTime[] - 
                    FunctionResourceTools`BuildDefinitionNotebook`Private`\
clickTime$$ > FunctionResourceTools`BuildDefinitionNotebook`Private`timeout$$, 
                    (RawBoxes[
                    TemplateBox[{
                    ToBoxes[#], 
                    ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[
                    Mouseover[
                    Graphics[{
                    GrayLevel[0.65], 
                    Thickness[2/45], 
                    
                    FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                    0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 
                    18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 
                    18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {
                    16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {
                    15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 
                    17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, {
                    12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], 
                    
                    FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                    0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 
                    14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{
                    8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 
                    11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25,
                     9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 
                    6.75}}}]}, ImageSize -> 12], 
                    Graphics[{
                    RGBColor[0.988235, 0.419608, 0.203922], 
                    Thickness[2/45], 
                    
                    FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                    0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 
                    18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 
                    18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {
                    16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {
                    15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 
                    17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, {
                    12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], 
                    
                    FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                    0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 
                    14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{
                    8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 
                    11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25,
                     9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 
                    6.75}}}]}, ImageSize -> 12]], 
                    "Click to copy to the clipboard"], 
                    (RawBoxes[
                    TemplateBox[{
                    ToBoxes[#], 
                    ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[
                    Graphics[{
                    RGBColor[0, 2/3, 0], 
                    Thickness[2/45], 
                    
                    FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                    0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 
                    18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 
                    18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {
                    16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {
                    15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 
                    17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, {
                    12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], 
                    
                    FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                    0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 
                    14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{
                    8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 
                    11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25,
                     9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 
                    6.75}}}]}, ImageSize -> 12], "Copied"]], UpdateInterval -> 
                    1, TrackedSymbols :> {
                    FunctionResourceTools`BuildDefinitionNotebook`Private`\
clickTime$$}], StandardForm]], 
                 ButtonFunction :> (
                  FunctionResourceTools`BuildDefinitionNotebook`Private`\
clickTime$$ = AbsoluteTime[]; CopyToClipboard[#2]), 
                 Appearance -> {
                  "Default" -> None, "Hover" -> None, "Pressed" -> None}, 
                 Method -> "Queued", Evaluator -> Automatic], 
                MouseAppearanceTag["LinkHand"]]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], 
           DynamicModuleValues :> {}]}, 
        Dynamic[
         CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 
        0]& )}], 
   Cell[
    StyleData["PrettyTooltipTemplate"], 
    TemplateBoxOptions -> {DisplayFunction -> (TagBox[
        TooltipBox[#, 
         FrameBox[
          
          StyleBox[#2, "Text", FontColor -> 
           RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> 
           "Plain", StripOnInput -> False], Background -> 
          RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> 
          RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8, 
          StripOnInput -> False], TooltipDelay -> 0.1, 
         TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, 
         Framed[
          Style[
          FunctionResourceTools`BuildDefinitionNotebook`Private`$$tooltip, 
           "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], 
           FontSize -> 12, FontWeight -> "Plain"], Background -> 
          RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> 
          RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8], 
         "Tooltip"]& ]& )}], 
   Cell[
    StyleData["ExampleGroupOpenerTemplate"], 
    TemplateBoxOptions -> {DisplayFunction -> (DynamicBox[
        ToBoxes[
         If[
          MatchQ[
           CurrentValue[
            EvaluationNotebook[], {TaggingRules, "Openers", #, #2}, Closed], 
           Alternatives[True, Open]], 
          Style[
           Graphics[{
             Thickness[0.18], 
             RGBColor[0.8509803921568627, 0.396078431372549, 0], 
             Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
            PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
           0.68 Inherited], 
          Rotate[
           Style[
            Graphics[{
              Thickness[0.18], 
              RGBColor[0.8509803921568627, 0.396078431372549, 0], 
              Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
             PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
            0.68 Inherited], Pi/2, {-1.65, -1}]], StandardForm]]& )}], 
   Cell[
    StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], 
    CellMargins -> {{66, 10}, {0, 8}}, 
    StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, 
    CellEventActions -> {
     "ReturnKeyDown" :> 
      With[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = 
         Notebooks[
           EvaluationCell[]]}, SelectionMove[
          EvaluationCell[], After, Cell]; 
        NotebookWrite[
         FunctionResourceTools`BuildDefinitionNotebook`Private`nb, 
          Cell["", "UsageDescription"], All]; 
        SelectionMove[
         FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, 
          CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[
          SelectedNotebook[], After, Cell]; NotebookFind[
          SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
          WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
          SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, 
    ContextMenu -> {
      MenuItem["Cu&t", "Cut"], 
      MenuItem["&Copy", "Copy"], 
      MenuItem["&Paste", 
       FrontEnd`Paste[After]], 
      Menu["Cop&y As", {
        MenuItem["Plain &Text", 
         FrontEnd`CopySpecial["PlainText"]], 
        MenuItem["&Input Text", 
         FrontEnd`CopySpecial["InputText"]], 
        MenuItem["&LaTeX", 
         KernelExecute[
          ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], 
        MenuItem["M&athML", 
         KernelExecute[
          ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> 
         Automatic], Delimiter, 
        MenuItem["Cell &Object", 
         FrontEnd`CopySpecial["CellObject"]], 
        MenuItem["&Cell Expression", 
         FrontEnd`CopySpecial["CellExpression"]], 
        MenuItem["&Notebook Expression", 
         FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, 
      MenuItem["Format as Template Input", 
       KernelExecute[
        ToExpression[
        "System`ResourceFunction; \
FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], 
       MenuEvaluator -> Automatic], 
      MenuItem["Format as Code", 
       KernelExecute[
        ToExpression[
        "System`ResourceFunction; \
FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\
], MenuEvaluator -> Automatic]}, ShowAutoStyles -> False, ShowCodeAssist -> 
    False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, 
    LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", 
    FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], 
   Cell[
    StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], 
    CellMargins -> {{86, 10}, {7, 0}}, 
    StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> 
    "OutputGrouping", 
    CellEventActions -> {
     "ReturnKeyDown" :> 
      With[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = 
         Notebooks[
           EvaluationCell[]]}, SelectionMove[
          EvaluationCell[], After, Cell]; 
        NotebookWrite[
         FunctionResourceTools`BuildDefinitionNotebook`Private`nb, 
          Cell[
           BoxData[""], "UsageInputs"], All]; 
        SelectionMove[
         FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, 
          CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[
          SelectedNotebook[], After, Cell]; NotebookFind[
          SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
          WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
          SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, 
    ContextMenu -> {
      MenuItem["Cu&t", "Cut"], 
      MenuItem["&Copy", "Copy"], 
      MenuItem["&Paste", 
       FrontEnd`Paste[After]], 
      Menu["Cop&y As", {
        MenuItem["Plain &Text", 
         FrontEnd`CopySpecial["PlainText"]], 
        MenuItem["&Input Text", 
         FrontEnd`CopySpecial["InputText"]], 
        MenuItem["&LaTeX", 
         KernelExecute[
          ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], 
        MenuItem["M&athML", 
         KernelExecute[
          ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> 
         Automatic], Delimiter, 
        MenuItem["Cell &Object", 
         FrontEnd`CopySpecial["CellObject"]], 
        MenuItem["&Cell Expression", 
         FrontEnd`CopySpecial["CellExpression"]], 
        MenuItem["&Notebook Expression", 
         FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, 
      MenuItem["Format as Template Input", 
       KernelExecute[
        ToExpression[
        "System`ResourceFunction; \
FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], 
       MenuEvaluator -> Automatic], 
      MenuItem["Format as Code", 
       KernelExecute[
        ToExpression[
        "System`ResourceFunction; \
FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\
], MenuEvaluator -> Automatic], Delimiter, 
      MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], 
      MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], 
      MenuItem["Chec&k Spelling...", "FindNextMisspelling"], 
      Menu["Citatio&n", {
        MenuItem[
        "Insert Bibliographical &Reference...", "InsertBibReference"], 
        MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], 
        Delimiter, 
        MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], 
        MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], 
        MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], 
        MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], 
      Delimiter, 
      Menu["Sty&le", {
        MenuItem[
        "Start Cell Style Names", "MenuListStyles", MenuAnchor -> True], 
        Delimiter, 
        MenuItem["&Other...", "StyleOther"]}], Delimiter, 
      MenuItem["Create Inline Cell", "CreateInlineCell"], 
      MenuItem["Di&vide Cell", "CellSplit"], 
      MenuItem["Evaluate &in Place", All], Delimiter, 
      MenuItem["Toggle &Full Screen", 
       FrontEndExecute[
        FrontEnd`Value[
         FEPrivate`NotebookToggleFullScreen[]]]]}, ShowAutoSpellCheck -> 
    False], 
   Cell[
    StyleData["Notes", StyleDefinitions -> StyleData["Item"]], 
    StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ContextMenu -> {
      MenuItem["Cu&t", "Cut"], 
      MenuItem["&Copy", "Copy"], 
      MenuItem["&Paste", 
       FrontEnd`Paste[After]], 
      Menu["Cop&y As", {
        MenuItem["Plain &Text", 
         FrontEnd`CopySpecial["PlainText"]], 
        MenuItem["&Input Text", 
         FrontEnd`CopySpecial["InputText"]], 
        MenuItem["&LaTeX", 
         KernelExecute[
          ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], 
        MenuItem["M&athML", 
         KernelExecute[
          ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> 
         Automatic], Delimiter, 
        MenuItem["Cell &Object", 
         FrontEnd`CopySpecial["CellObject"]], 
        MenuItem["&Cell Expression", 
         FrontEnd`CopySpecial["CellExpression"]], 
        MenuItem["&Notebook Expression", 
         FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, 
      MenuItem["Format as Template Input", 
       KernelExecute[
        ToExpression[
        "System`ResourceFunction; \
FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], 
       MenuEvaluator -> Automatic], 
      MenuItem["Format as Code", 
       KernelExecute[
        ToExpression[
        "System`ResourceFunction; \
FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\
], MenuEvaluator -> Automatic], Delimiter, 
      MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], 
      MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], 
      MenuItem["Chec&k Spelling...", "FindNextMisspelling"], 
      Menu["Citatio&n", {
        MenuItem[
        "Insert Bibliographical &Reference...", "InsertBibReference"], 
        MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], 
        Delimiter, 
        MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], 
        MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], 
        MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], 
        MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], 
      Delimiter, 
      Menu["Sty&le", {
        MenuItem[
        "Start Cell Style Names", "MenuListStyles", MenuAnchor -> True], 
        Delimiter, 
        MenuItem["&Other...", "StyleOther"]}], Delimiter, 
      MenuItem["Create Inline Cell", "CreateInlineCell"], 
      MenuItem["Di&vide Cell", "CellSplit"], 
      MenuItem["Evaluate &in Place", All], Delimiter, 
      MenuItem["Toggle &Full Screen", 
       FrontEndExecute[
        FrontEnd`Value[
         FEPrivate`NotebookToggleFullScreen[]]]]}, ShowAutoSpellCheck -> 
    False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], 
   Cell[
    StyleData["Text"], ContextMenu -> {
      MenuItem["Cu&t", "Cut"], 
      MenuItem["&Copy", "Copy"], 
      MenuItem["&Paste", 
       FrontEnd`Paste[After]], 
      Menu["Cop&y As", {
        MenuItem["Plain &Text", 
         FrontEnd`CopySpecial["PlainText"]], 
        MenuItem["&Input Text", 
         FrontEnd`CopySpecial["InputText"]], 
        MenuItem["&LaTeX", 
         KernelExecute[
          ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], 
        MenuItem["M&athML", 
         KernelExecute[
          ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> 
         Automatic], Delimiter, 
        MenuItem["Cell &Object", 
         FrontEnd`CopySpecial["CellObject"]], 
        MenuItem["&Cell Expression", 
         FrontEnd`CopySpecial["CellExpression"]], 
        MenuItem["&Notebook Expression", 
         FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, 
      MenuItem["Format as Template Input", 
       KernelExecute[
        ToExpression[
        "System`ResourceFunction; \
FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], 
       MenuEvaluator -> Automatic], 
      MenuItem["Format as Code", 
       KernelExecute[
        ToExpression[
        "System`ResourceFunction; \
FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\
], MenuEvaluator -> Automatic], Delimiter, 
      MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], 
      MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], 
      MenuItem["Chec&k Spelling...", "FindNextMisspelling"], 
      Menu["Citatio&n", {
        MenuItem[
        "Insert Bibliographical &Reference...", "InsertBibReference"], 
        MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], 
        Delimiter, 
        MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], 
        MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], 
        MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], 
        MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], 
      Delimiter, 
      Menu["Sty&le", {
        MenuItem[
        "Start Cell Style Names", "MenuListStyles", MenuAnchor -> True], 
        Delimiter, 
        MenuItem["&Other...", "StyleOther"]}], Delimiter, 
      MenuItem["Create Inline Cell", "CreateInlineCell"], 
      MenuItem["Di&vide Cell", "CellSplit"], 
      MenuItem["Evaluate &in Place", All], Delimiter, 
      MenuItem["Toggle &Full Screen", 
       FrontEndExecute[
        FrontEnd`Value[
         FEPrivate`NotebookToggleFullScreen[]]]]}], 
   Cell[
    StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], 
    CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], 
    StyleMenuListing -> None, 
    ButtonBoxOptions -> {Appearance -> {Automatic, None}}, 
    GridBoxOptions -> {
     FrameStyle -> GrayLevel[0.906], 
      GridBoxAlignment -> {
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}}, 
      GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, 
      GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], 
   Cell[
    StyleData["TableText"], DefaultInlineFormatType -> 
    "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, 
    StyleMenuListing -> None], 
   Cell[
    StyleData["Hyperlink"], FontColor -> 
    RGBColor[0.921569, 0.341176, 0.105882]], 
   Cell[
    StyleData["HyperlinkActive"], FontColor -> 
    RGBColor[0.614379, 0.227451, 0.0705882]], 
   Cell[
    StyleData["InlineFormula"], FontSize -> 0.99 Inherited], 
   Cell[
    StyleData["ExampleDelimiter"], ShowCellBracket -> Automatic, 
    CellMargins -> {{66, 14}, {-5, 0}}, 
    CellGroupingRules -> {"SectionGrouping", 58}, ShowCellLabel -> False, 
    CellLabelAutoDelete -> True, TabFilling -> 
    "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {76}, StyleMenuListing -> 
    None, FontFamily -> "Verdana", FontSize -> 9, FontWeight -> "Plain", 
    FontSlant -> "Plain", FontColor -> GrayLevel[0.905882]], 
   Cell[
    StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]], 
   Cell[
    StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]],
     Selectable -> False, CellFrame -> {{0, 0}, {1, 0}}, 
    CellMargins -> {{66, 14}, {15, -5}}, 
    CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True, 
    CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor -> 
    GrayLevel[
      Rational[77, 85]]], 
   Cell[
    StyleData["Subsection"], Evaluatable -> True, 
    CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], 
   Cell[
    StyleData["Subsubsection"], Evaluatable -> True, 
    CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False]},
   Visible -> False, FrontEndVersion -> 
  "12.0 for Microsoft Windows (64-bit) (January 21, 2019)", StyleDefinitions -> 
  "PrivateStylesheetFormatting.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Title"->{
  Cell[580, 22, 599, 9, 96, "Title",ExpressionUUID->"7f3dc888-4f9f-4ed8-927a-9877b5d60839",
   CellTags->{"Title", "TabNext"},
   CellID->362346026]},
 "TabNext"->{
  Cell[580, 22, 599, 9, 96, "Title",ExpressionUUID->"7f3dc888-4f9f-4ed8-927a-9877b5d60839",
   CellTags->{"Title", "TabNext"},
   CellID->362346026],
  Cell[1182, 33, 650, 9, 34, "Text",ExpressionUUID->"e1487cd0-b310-42bf-bb9f-968aec9526b8",
   CellTags->{"Description", "TabNext"},
   CellID->450900334],
  Cell[2850, 70, 828, 17, 28, "Input",ExpressionUUID->"91ad62e1-34e5-423e-b976-d02c457972b6",
   CellTags->"TabNext",
   CellID->778396829],
  Cell[4815, 124, 292, 7, 26, "UsageInputs",ExpressionUUID->"fe68b886-a6fa-4d32-90b4-f2aa5b7a1079",
   CellTags->"TabNext",
   CellID->157543866],
  Cell[5110, 133, 223, 3, 26, "UsageDescription",ExpressionUUID->"758204a5-98e5-4494-a215-0e97b606574c",
   CellTags->"TabNext",
   CellID->231889230],
  Cell[6312, 165, 875, 20, 31, "Notes",ExpressionUUID->"503b4729-1464-4f53-af15-cba234e12d63",
   CellTags->"TabNext",
   CellID->521904482],
  Cell[16838, 472, 591, 9, 34, "Text",ExpressionUUID->"0498e722-2464-4bb5-ad08-757725456d4c",
   CellTags->"TabNext",
   CellID->832483124],
  Cell[18207, 507, 519, 8, 31, "Item",ExpressionUUID->"aad8cf17-7ffd-47d4-bbcc-365da0671542",
   CellTags->"TabNext",
   CellID->123227828],
  Cell[19541, 541, 556, 8, 31, "Item",ExpressionUUID->"ce7e66dc-f28f-4276-ae2f-3593f79cf132",
   CellTags->"TabNext",
   CellID->79477165],
  Cell[20952, 575, 563, 8, 31, "Item",ExpressionUUID->"46e7fb96-a961-43a4-8b5a-c03012738145",
   CellTags->"TabNext",
   CellID->960273585],
  Cell[22423, 610, 551, 8, 34, "Text",ExpressionUUID->"be92790d-0f39-4cc9-a368-5cd4eaa5193c",
   CellTags->"TabNext",
   CellID->343081869],
  Cell[23724, 643, 540, 8, 31, "Item",ExpressionUUID->"5a094567-a818-4d36-a80a-5525dad9e719",
   CellTags->"TabNext",
   CellID->485448166],
  Cell[25381, 686, 564, 8, 34, "Text",ExpressionUUID->"53d6a668-784a-4092-b99e-522f3d4b4716",
   CellTags->"TabNext",
   CellID->567921317],
  Cell[26818, 721, 550, 8, 34, "Text",ExpressionUUID->"4475d55f-b8af-4603-bc8d-f321212c775c",
   CellTags->"TabNext",
   CellID->920818074]},
 "Description"->{
  Cell[1182, 33, 650, 9, 34, "Text",ExpressionUUID->"e1487cd0-b310-42bf-bb9f-968aec9526b8",
   CellTags->{"Description", "TabNext"},
   CellID->450900334]},
 "Definition"->{
  Cell[1857, 46, 990, 22, 67, "Section",ExpressionUUID->"172d1f2a-3686-40bd-8a2f-b6d651784c85",
   CellTags->"Definition",
   CellID->608264297]},
 "Documentation"->{
  Cell[3715, 92, 154, 3, 67, "Section",ExpressionUUID->"b0c71edf-dda2-4761-8132-a16dbe897b68",
   CellTags->"Documentation",
   CellID->855965831]},
 "Usage"->{
  Cell[3894, 99, 896, 21, 53, "Subsection",ExpressionUUID->"1d44f233-146a-43bf-91d7-3c1e069829fc",
   CellTags->"Usage",
   CellID->694807545]},
 "Details & Options"->{
  Cell[5382, 142, 927, 21, 53, "Subsection",ExpressionUUID->"69a9acf3-66a9-4588-bfbe-fbdab5f136f2",
   CellTags->"Details & Options",
   CellID->29639701]},
 "Examples"->{
  Cell[7236, 191, 1026, 22, 67, "Section",ExpressionUUID->"af09ef0b-cce0-4eec-b74c-3508fd855f1c",
   CellTags->"Examples",
   CellID->847663398]},
 "Source & Additional Information"->{
  Cell[15835, 444, 190, 3, 67, "Section",ExpressionUUID->"a0672987-d558-4c6c-922a-0d68dbd89abc",
   CellTags->"Source & Additional Information",
   CellID->318391102]},
 "Contributed By"->{
  Cell[16050, 451, 785, 19, 53, "Subsection",ExpressionUUID->"b3a2ea4f-f217-4acb-bfdd-d9a503d46ba1",
   CellTags->"Contributed By",
   CellID->757508554]},
 "Keywords"->{
  Cell[17466, 486, 738, 19, 53, "Subsection",ExpressionUUID->"9f0a351c-3c76-4030-b3c9-23df321f0299",
   CellTags->"Keywords",
   CellID->246422893]},
 "Related Symbols"->{
  Cell[18763, 520, 775, 19, 53, "Subsection",ExpressionUUID->"2a43d3ac-9175-4a0b-9c9a-9a326c6aa124",
   CellTags->"Related Symbols",
   CellID->911170439]},
 "Related Resource Objects"->{
  Cell[20134, 554, 815, 19, 53, "Subsection",ExpressionUUID->"b56c2736-62a5-4146-a7ec-f42a4034bdae",
   CellTags->"Related Resource Objects",
   CellID->217060377]},
 "Source/Reference Citation"->{
  Cell[21552, 588, 868, 20, 53, "Subsection",ExpressionUUID->"b9ebc76b-aea6-4350-8dc9-20d3dd7f84f0",
   CellTags->"Source/Reference Citation",
   CellID->967310595]},
 "Links"->{
  Cell[23011, 623, 710, 18, 53, "Subsection",ExpressionUUID->"d37f3bd2-ecec-4726-ac9e-39c3c7ef3073",
   CellTags->"Links",
   CellID->593846556]},
 "Tests"->{
  Cell[24279, 654, 880, 21, 53, "Subsection",ExpressionUUID->"2376d591-4240-4586-8422-84cf4e38f97c",
   CellTags->"Tests",
   CellID->16051757]},
 "Author Notes"->{
  Cell[25196, 680, 182, 4, 67, "Section",ExpressionUUID->"0aef5205-755e-4cb0-ae53-e7e6dff8f42c",
   CellTags->"Author Notes",
   CellID->795110225]},
 "Submission Notes"->{
  Cell[25982, 699, 833, 20, 67, "Section",ExpressionUUID->"62dcd839-d3f4-4598-8259-a5597fab6a1f",
   CellTags->"Submission Notes",
   CellID->843283583]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Title", 322996, 6298},
 {"TabNext", 323161, 6302},
 {"Description", 325195, 6345},
 {"Definition", 325369, 6349},
 {"Documentation", 325536, 6353},
 {"Usage", 325697, 6357},
 {"Details & Options", 325866, 6361},
 {"Examples", 326038, 6365},
 {"Source & Additional Information", 326223, 6369},
 {"Contributed By", 326413, 6373},
 {"Keywords", 326584, 6377},
 {"Related Symbols", 326756, 6381},
 {"Related Resource Objects", 326944, 6385},
 {"Source/Reference Citation", 327142, 6389},
 {"Links", 327321, 6393},
 {"Tests", 327480, 6397},
 {"Author Notes", 327645, 6401},
 {"Submission Notes", 327818, 6405}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 599, 9, 96, "Title",ExpressionUUID->"7f3dc888-4f9f-4ed8-927a-9877b5d60839",
 CellTags->{"Title", "TabNext"},
 CellID->362346026],
Cell[1182, 33, 650, 9, 34, "Text",ExpressionUUID->"e1487cd0-b310-42bf-bb9f-968aec9526b8",
 CellTags->{"Description", "TabNext"},
 CellID->450900334],
Cell[CellGroupData[{
Cell[1857, 46, 990, 22, 67, "Section",ExpressionUUID->"172d1f2a-3686-40bd-8a2f-b6d651784c85",
 CellTags->"Definition",
 CellID->608264297],
Cell[2850, 70, 828, 17, 28, "Input",ExpressionUUID->"91ad62e1-34e5-423e-b976-d02c457972b6",
 CellTags->"TabNext",
 CellID->778396829]
}, Open  ]],
Cell[CellGroupData[{
Cell[3715, 92, 154, 3, 67, "Section",ExpressionUUID->"b0c71edf-dda2-4761-8132-a16dbe897b68",
 CellTags->"Documentation",
 CellID->855965831],
Cell[CellGroupData[{
Cell[3894, 99, 896, 21, 53, "Subsection",ExpressionUUID->"1d44f233-146a-43bf-91d7-3c1e069829fc",
 CellTags->"Usage",
 CellID->694807545],
Cell[CellGroupData[{
Cell[4815, 124, 292, 7, 26, "UsageInputs",ExpressionUUID->"fe68b886-a6fa-4d32-90b4-f2aa5b7a1079",
 CellTags->"TabNext",
 CellID->157543866],
Cell[5110, 133, 223, 3, 26, "UsageDescription",ExpressionUUID->"758204a5-98e5-4494-a215-0e97b606574c",
 CellTags->"TabNext",
 CellID->231889230]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[5382, 142, 927, 21, 53, "Subsection",ExpressionUUID->"69a9acf3-66a9-4588-bfbe-fbdab5f136f2",
 CellTags->"Details & Options",
 CellID->29639701],
Cell[6312, 165, 875, 20, 31, "Notes",ExpressionUUID->"503b4729-1464-4f53-af15-cba234e12d63",
 CellTags->"TabNext",
 CellID->521904482]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[7236, 191, 1026, 22, 67, "Section",ExpressionUUID->"af09ef0b-cce0-4eec-b74c-3508fd855f1c",
 CellTags->"Examples",
 CellID->847663398],
Cell[CellGroupData[{
Cell[8287, 217, 111, 1, 53, "Subsection",ExpressionUUID->"8cb6f2dc-8b9e-4bee-a914-333e1cb2afff",
 CellID->462042388],
Cell[8401, 220, 213, 2, 34, "Text",ExpressionUUID->"e5e7b31f-2f56-4344-93f1-f589f488b225",
 CellID->13078159],
Cell[CellGroupData[{
Cell[8639, 226, 298, 6, 28, "Input",ExpressionUUID->"ab0d8e16-5d23-4ae4-b9f2-03528b19ffa5",
 CellID->443871870],
Cell[8940, 234, 249, 4, 32, "Output",ExpressionUUID->"6e10426e-0285-4c22-8550-49de71dbd6aa",
 CellID->254723340]
}, Open  ]],
Cell[9204, 241, 214, 2, 34, "Text",ExpressionUUID->"ef448fbb-51f4-4171-a3ea-45138aa96ab8",
 CellID->511714303],
Cell[CellGroupData[{
Cell[9443, 247, 303, 6, 28, "Input",ExpressionUUID->"e06a0a33-27eb-49e1-9e15-6ffeca283ee4",
 CellID->450253865],
Cell[9749, 255, 224, 4, 32, "Output",ExpressionUUID->"844911ee-627b-4c31-948f-6a1b0da8166f",
 CellID->383480412]
}, Open  ]],
Cell[9988, 262, 211, 2, 34, "Text",ExpressionUUID->"15de8199-654a-4550-b233-8c4a92a88266",
 CellID->717786656],
Cell[CellGroupData[{
Cell[10224, 268, 367, 9, 28, "Input",ExpressionUUID->"6f9595cd-c294-4d13-a9d7-e102a6e902a9",
 CellID->233777138],
Cell[10594, 279, 288, 7, 32, "Output",ExpressionUUID->"bca2ae1a-849e-412a-bc39-d485f747b84d",
 CellID->431071536]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[10931, 292, 102, 1, 53, "Subsection",ExpressionUUID->"aa3902d7-af20-4a0a-ac85-dfbb6bb718b3",
 CellID->964056545],
Cell[11036, 295, 377, 10, 34, "Text",ExpressionUUID->"81c8a84d-1ed0-4b45-91a7-661a00b491a9",
 CellID->649685796],
Cell[CellGroupData[{
Cell[11438, 309, 596, 16, 48, "Input",ExpressionUUID->"2dc296fb-90ae-4c4c-b0c9-5b9b7c31b29b",
 CellID->836153427],
Cell[12037, 327, 391, 10, 48, "Output",ExpressionUUID->"03f56944-97bf-4fa4-a168-076f9c13aed9",
 CellID->265765072]
}, Open  ]],
Cell[12443, 340, 375, 10, 34, "Text",ExpressionUUID->"787e631b-adbd-4d9e-845d-aa08fe079cea",
 CellID->879052803],
Cell[CellGroupData[{
Cell[12843, 354, 649, 17, 48, "Input",ExpressionUUID->"33d31feb-a9a3-417f-9c49-d49fc97ee09b",
 CellID->255267095],
Cell[13495, 373, 391, 10, 48, "Output",ExpressionUUID->"63603dbe-89eb-4119-889a-e9cbce4bbc42",
 CellID->311835641]
}, Open  ]]
}, Open  ]],
Cell[13913, 387, 104, 1, 53, "Subsection",ExpressionUUID->"02fd957e-1a63-4ee3-8fae-eb0d1d76e0d9",
 CellID->776923543],
Cell[CellGroupData[{
Cell[14042, 392, 109, 1, 37, "Subsection",ExpressionUUID->"f1f9c0a7-86e7-4f25-bdc1-ac58ed96f767",
 CellID->568056528],
Cell[14154, 395, 278, 5, 56, "Text",ExpressionUUID->"94fa3c24-4d6e-4f8b-a8c2-30f5b630ddb3",
 CellID->341824815],
Cell[CellGroupData[{
Cell[14457, 404, 742, 18, 105, "Input",ExpressionUUID->"e3b15d46-f533-406f-8126-5abb1189cf21",
 CellID->59129480],
Cell[15202, 424, 221, 4, 32, "Output",ExpressionUUID->"fc4edc0d-0906-44cc-a3a1-0ccb5127742b",
 CellID->115644488]
}, Open  ]]
}, Open  ]],
Cell[15450, 432, 121, 1, 53, "Subsection",ExpressionUUID->"9431dded-b7bb-419d-a048-57eaa85dea14",
 CellID->754506620],
Cell[15574, 435, 111, 1, 37, "Subsection",ExpressionUUID->"e0144eb8-41b9-406b-b0bf-ec93d3fc7f71",
 CellID->92483860],
Cell[15688, 438, 110, 1, 37, "Subsection",ExpressionUUID->"5864bab9-9aef-4cfa-9a38-ab46af950496",
 CellID->540091361]
}, Open  ]],
Cell[CellGroupData[{
Cell[15835, 444, 190, 3, 67, "Section",ExpressionUUID->"a0672987-d558-4c6c-922a-0d68dbd89abc",
 CellTags->"Source & Additional Information",
 CellID->318391102],
Cell[CellGroupData[{
Cell[16050, 451, 785, 19, 53, "Subsection",ExpressionUUID->"b3a2ea4f-f217-4acb-bfdd-d9a503d46ba1",
 CellTags->"Contributed By",
 CellID->757508554],
Cell[16838, 472, 591, 9, 34, "Text",ExpressionUUID->"0498e722-2464-4bb5-ad08-757725456d4c",
 CellTags->"TabNext",
 CellID->832483124]
}, Open  ]],
Cell[CellGroupData[{
Cell[17466, 486, 738, 19, 53, "Subsection",ExpressionUUID->"9f0a351c-3c76-4030-b3c9-23df321f0299",
 CellTags->"Keywords",
 CellID->246422893],
Cell[18207, 507, 519, 8, 31, "Item",ExpressionUUID->"aad8cf17-7ffd-47d4-bbcc-365da0671542",
 CellTags->"TabNext",
 CellID->123227828]
}, Open  ]],
Cell[CellGroupData[{
Cell[18763, 520, 775, 19, 53, "Subsection",ExpressionUUID->"2a43d3ac-9175-4a0b-9c9a-9a326c6aa124",
 CellTags->"Related Symbols",
 CellID->911170439],
Cell[19541, 541, 556, 8, 31, "Item",ExpressionUUID->"ce7e66dc-f28f-4276-ae2f-3593f79cf132",
 CellTags->"TabNext",
 CellID->79477165]
}, Open  ]],
Cell[CellGroupData[{
Cell[20134, 554, 815, 19, 53, "Subsection",ExpressionUUID->"b56c2736-62a5-4146-a7ec-f42a4034bdae",
 CellTags->"Related Resource Objects",
 CellID->217060377],
Cell[20952, 575, 563, 8, 31, "Item",ExpressionUUID->"46e7fb96-a961-43a4-8b5a-c03012738145",
 CellTags->"TabNext",
 CellID->960273585]
}, Open  ]],
Cell[CellGroupData[{
Cell[21552, 588, 868, 20, 53, "Subsection",ExpressionUUID->"b9ebc76b-aea6-4350-8dc9-20d3dd7f84f0",
 CellTags->"Source/Reference Citation",
 CellID->967310595],
Cell[22423, 610, 551, 8, 34, "Text",ExpressionUUID->"be92790d-0f39-4cc9-a368-5cd4eaa5193c",
 CellTags->"TabNext",
 CellID->343081869]
}, Open  ]],
Cell[CellGroupData[{
Cell[23011, 623, 710, 18, 53, "Subsection",ExpressionUUID->"d37f3bd2-ecec-4726-ac9e-39c3c7ef3073",
 CellTags->"Links",
 CellID->593846556],
Cell[23724, 643, 540, 8, 31, "Item",ExpressionUUID->"5a094567-a818-4d36-a80a-5525dad9e719",
 CellTags->"TabNext",
 CellID->485448166]
}, Open  ]],
Cell[24279, 654, 880, 21, 53, "Subsection",ExpressionUUID->"2376d591-4240-4586-8422-84cf4e38f97c",
 CellTags->"Tests",
 CellID->16051757]
}, Open  ]],
Cell[CellGroupData[{
Cell[25196, 680, 182, 4, 67, "Section",ExpressionUUID->"0aef5205-755e-4cb0-ae53-e7e6dff8f42c",
 CellTags->"Author Notes",
 CellID->795110225],
Cell[25381, 686, 564, 8, 34, "Text",ExpressionUUID->"53d6a668-784a-4092-b99e-522f3d4b4716",
 CellTags->"TabNext",
 CellID->567921317]
}, Open  ]],
Cell[CellGroupData[{
Cell[25982, 699, 833, 20, 67, "Section",ExpressionUUID->"62dcd839-d3f4-4598-8259-a5597fab6a1f",
 CellTags->"Submission Notes",
 CellID->843283583],
Cell[26818, 721, 550, 8, 34, "Text",ExpressionUUID->"4475d55f-b8af-4603-bc8d-f321212c775c",
 CellTags->"TabNext",
 CellID->920818074]
}, Open  ]]
}, Open  ]]
}
]
*)

